Hi,
I've created a worksheet and for some reason, additional objects have been added.
Rather than selecting all objects and deleting (don't want to do this as took me a long time added macros to current buttons).
I would like to delete the objects called Button 123 to Button 1296.
Still learning VB and tried the following which cant be far away?
Please Login or Register to view this content.
Does this work?
[code]
Sub DeleteShapes()
Dim I As Long
For I = 123 To 1296
On Error Resume Next
ActiveSheet.Shapes("Button " & i).Delete
On Error Goto 0
Next I
End Sub
If posting code please use code tags, see here.
Excellent, works a charm.
Thankyou
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks