VBA to delete Form Buttons

[grantreid]

Hi

I need to delete all Form Buttons on the Active Sheet whose name does not start with "Main". This is what I have at the moment, but obviously it isn't working - error message is "Object doesn't support this property or method".

Sub delbuttons()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp <> "Main*" Then
shp.Delete
End If
Next shp
End Sub


Hope someone out there can assist.

Kind Regards - Grant

 

[alansidman]

Change to

If shp.Name <> "Main*" Then

 

[Yongle]

Use this test instead of yours

If Left(shp.Name, 4) <> "Main" Then

 

[grantreid]

Hi

Thanks to all who responded. Much appreciated. I used the test supplied by Yongle to resolve.

Kind Regards - Grant