Get Button Name from Cell Address

[KyleSC]

Is there a way to retrieve the name of a button if based on the address of the cell its in?

 

[6StringJazzer]

I assume you are asking a VBA question.

This function takes a Range of a cell (not an address, but the cell itself) and returns the name of the button. Below that is a demo of how to call it.

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
'   Set S = Me.Shapes("CommandButton1")
'   Debug.Print Me.Shapes("CommandButton1").TopLeftCell.Address
   
End Function

Public Sub test()
   Debug.Print ButtonInCell(Range("G5"))
End Sub

 

[KyleSC]

Yes, I forgot to mention I was looking for a VBA solution. That was exactly what I needed, thanks!