Sub test()
Dim ws As Object
Application.DisplayAlerts = False
For Each ws In Sheets
If TypeName(ws) = "Chart" And ws.Name Like "Graph*" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub
Sub test()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name Like "Graph*" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub
Like "[B][COLOR="Red"]g[/COLOR][/B]raph*"