Sub Adr()

x = ActiveCell.Left

y = ActiveCell.Top

MsgBox ActiveCell.Address(0, 0)

End Sub

''''''''''''''''''''''''''''''''''''

'тип

'левая позиция

'верхняя позиция

'ширина

'высота

ActiveSheet.Shapes.AddShape(msoShapeOval, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height).Select

Selection.ShapeRange.ShapeStyle = msoShapeStylePreset1

Selection.ShapeRange.Fill.Visible = msoFalse

''''''''''''''''''''''''''''''''''''''''''''''''''''

Как определить Адрес ячейки по ее координатам?

Ура, получилось, большое спасибо!
Вот так прикрутил к своему коду
With sShapes            'Add shape properties
WsNew.Cells(lLoop + 1, 1) = .Name
WsNew.Cells(lLoop + 1, 2) = .OLEFormat.Object.Name
WsNew.Cells(lLoop + 1, 3) = .Height
WsNew.Cells(lLoop + 1, 4) = .Width
WsNew.Cells(lLoop + 1, 5) = .Left
WsNew.Cells(lLoop + 1, 6) = .Top
WsNew.Cells(lLoop + 1, 7) = .TopLeftCell.Address