Public Function ButtonInCell(Cell As Range) As String
Dim S As Shape
For Each S In Me.Shapes
If S.TopLeftCell.Address = Cell.Address Then
ButtonInCell = S.Name
Exit Function
End If
Next S
End Function
Public Sub test()
Debug.Print ButtonInCell(Range("G5"))
End Sub