Dim obg(2, 50) As String      'オブジェクト名
'
Sub ki287()
Sheets("Sheet1").Select
i = 0
For Each ex In ActiveSheet.Shapes
    obg(0, i) = ex.Name
    obg(1, i) = ex.TopLeftCell.Row
    obg(2, i) = ex.TopLeftCell.Column
    Msg = "オブジェクト名 " & obg(0, i) & _
    ": Cells(" & obg(1, i) & "," & obg(2, i) & ")"
      celad = MsgBox(Msg, 1, "セル位置")
        If celad = 2 Then
             Exit Sub
        End If
    i = i + 1
Next
     Range("A1").Select
     Sheets("Title").Select
End Sub