Delete Selected Worksheets Macro

  • Thread starter Thread starter Indianagreg
  • Start date Start date
I

Indianagreg

I have a workbook with 500 tabs. 200 of the tabs are named: FI (1), FI (2),
FI (3), etc. I want to delete all tabs that start with FI.

I've tried the below without success - any suggestions? Here's what I have:

Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name = "FI (*)" Then ws.Delete
Next
Application.DisplayAlerts = True
 
Sub FI_killer()
Application.DisplayAlerts = False
For Each w In Worksheets
If Left(w.Name, 2) = "FI" Then
w.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
 
Perfect! Thank you and Happy New Year

Gary''s Student said:
Sub FI_killer()
Application.DisplayAlerts = False
For Each w In Worksheets
If Left(w.Name, 2) = "FI" Then
w.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
Click to expand...
 
Back
Top