verify a shape exists in the sheet
Hi,
how about this one:
Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.Name = "Test" Then
MsgBox "shape Test exists"
exit for
End If
Next
"Name" seems to be case sensitive.
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"
|