yeah,
I have selected the shape using:
Sub currentbar()
Dim sh As Shape, shtxt As String
For Each sh In ActiveSheet.Shapes
sh.Select
shtxt = Selection.Characters.Text
Debug.Print shtxt
Next
Set sh = Nothing
End Sub
but I cannot get a list of the text in the autoshapes....
I am sure that it is a simple solution!?!?!?!