prevent delete specific shapes

[Hasson]

hello
I have many buttons and shapes one of the buttons is necessary to run the macro the problem when run this macro it delete all the buttons and shapes so the question is , is there any way to ignore deleting the button1?

Sub delsh()
For Each shp In ActiveSheet.Shapes
 shp.Delete
 Next
End Sub

 

[mrshl9898]

Perhaps

Sub delsh()
For Each shp In ActiveSheet.Shapes
If shp.name <> "button1" then
shp.Delete
End if
Next
End Sub

 

[Hasson]

thanks unfortunately delete all

 

[mrshl9898]

Does debug.print shp.name reveal the names in the intermittent windrow?

 

[mrshl9898]

Try adding it in place of delete

 

[Fluff]

Try

If shp.name <> "Button 1" then

 

[Hasson]

@Fluff brilliant ! many thanks

 

[Fluff]

Glad we could help & thanks for the feedback.