Sorry, I got this error
https://1drv.ms/u/s!Ai8CrEskdewXm1QXfNbf5dR9oyAF
due to 2nd line below.
Dim btn As Shapes
For Each btn In ActiveSheet.Shapes
Debug.Print "Button " & btn.Name & " with caption " _
& btn.Caption & " Located at " & _
btn.TopLeftCell.Address
Next