Deleting worksheets with specific name ??

[Cinema]

Hi,

does somebody know how to search specific Worksheet(s), that has the Name "Diagram1" or "Diagram2" and so on, and delete them / it if they / it exist(s).
Here is a try of my code.

Sub Makro1()

Dim s As Worksheet

For Each s In Worksheets
If s.Name Like "Diagram*" Then
s.Delete
End If
Next s

End Sub