Finding and counting text boxes

Question

Is there a way to find all the text boxes in a range and to populate their names into a list? (thegiven names of the text boxes that show in the formula bar when you click on them.)

Answer

You can do this with VBA ¨C for example

Sub counter() Dim sh For Each sh In ActiveSheet.Shapes MsgBox sh.Name

Next End Sub

Will give you a series of message boxes with the names of the shape ¨C in this instance, I haven¡¯t specified that it has to be a textbox, so it might need refinement if you have other shapes on your worksheet