Need VBA code to delete all sheets that start with Sheet

[txfrazier]

I have a number of users of a workbook that contains a number of pivot tables. When the user views the data behind the table, a new sheet is displayed. I know its not difficult to simply delete the new sheet, but you don't understand my users. Therefore, I'd like to have code that deletes ALL sheets whose name includes "Sheet" regardless of whther its Sheet1, Sheet2, etc.


Thanks

 

[Luke M]

This will delete any worksheet with the word "sheet" in its name.

Sub KillSheets()
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
If UCase(ws.Name) Like "*SHEET*" Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next
Application.ScreenUpdating = False
End Sub

 

[txfrazier]

Luke,


Works like a charm!


Thanks

 

[pato chan]

Does not work.

 

[Marc L]

Re-works now, just retry with the updated code in original post …​

​