Deleting worksheets with specific name ??

[Bob Phillips]

Sub Makro1()
Dim s As Worksheet
    
    Application.DisplayAlerts = False
    
    For Each s In ThisWorkbook.Worksheets
        If s.Name Like "Diagram*" Then s.Delete
    Next s
    
    Application.DisplayAlerts = True
End Sub