Delete shape but not all

[haseft]

Hi!

I want to delte alla shapes but not with the name "rapport".
The shape "rapport" is msoShapeRectangle witch i create in Worksheet.
Other shapes creats in vba'
Please help!

Sub DeleteShapes()
Dim w As Worksheet
Dim s As Shape
Set w = ActiveSheet

For Each s In w.Shapes
If s = "rapport" Then ' want to keep it
'do nothing
Else
s.Delete
End If
Next s
End Sub

 

[louisH]

Hi (Salut ? ).

Be careful it's case sensitive :

Sub test()

    For Each sh In ActiveSheet.Shapes
        If sh.Name <> "rapport" Then
            sh.Delete
        End If
    Next sh

End Sub

 

[RoryA]

To avoid case-sensitivity:

If LCase$(sh.Name) <> "rapport" Then

 

[haseft]

Tanks to both,
its workning nu.