A bit more generic

Sub Test90023()
Dim oSht As Worksheet
Set oSht = ActiveSheet
Dim lCnt As Long
For lCnt = 1 To oSht.Shapes.Count
MsgBox oSht.Shapes(lCnt).Name & " at " &
oSht.Shapes(lCnt).TopLeftCell.Address
Next
End Sub


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Helmut Weber" wrote in message
...
Hi George,

maybe you are looking for something
along these lines:

Sub Test90023()
Dim oSht As Worksheet
Set oSht = ActiveSheet
Dim lCnt As Long
For lCnt = 1 To oSht.Shapes.Count
If oSht.Shapes(lCnt).Type = msoFormControl Then
MsgBox oSht.Shapes(lCnt).FormControlType
End If
Next
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"