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

--
Gary''s Student - gsnu200822


"Indianagreg" wrote:

> 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
>

Perfect! Thank you and Happy New Year

"Gary''s Student" wrote:

> 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
>
> --
> Gary''s Student - gsnu200822
>
>
> "Indianagreg" wrote:
>
> > 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
> >

You too!
--
Gary''s Student - gsnu200822


"Indianagreg" wrote:

> Perfect! Thank you and Happy New Year
>
> "Gary''s Student" wrote:
>
> > 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
> >
> > --
> > Gary''s Student - gsnu200822
> >
> >
> > "Indianagreg" wrote:
> >
> > > 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
> > >