View Single Post
 
Old 11-13-2018, 11:32 PM
HuaMin HuaMin is offline Windows XP Office 2003
Banned
 
Join Date: Feb 2010
Posts: 6
HuaMin is on a distinguished road
Default

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
Reply With Quote