For Each S In ActiveSheet.Shapes
If Not (S.Name Like "Drop Down*") And S.Name <> "logo" And S.Name <> "sign rs" And _
S.Name <> "sign mrv" And S.Name <> "CommandButton1" And S.Name <> "CommandButton2" And _
S.Name <> "CommandButton3" Then S.Delete
Next S