I found some VBA code (on this Discussion Group that was posted a while back)
which allows a user to delete all worksheets except for three. I am
wondering if there is a way to get Excel to delete all worksheets which don’t
have “ZZZ” in the tab. I tried “ZZZ*” but didn’t have any success with that.
Basically, I am wondering if the * (wildcard) symbol is not recognized in
VBA…

My code is below:

Sub DelteAllWS()
Dim mySht As Worksheet
Application.DisplayAlerts = False
For Each mySht In ActiveWorkbook.Worksheets
If mySht.Name <> "ZZZ - USA Firms" And mySht.Name <> "ZZZ - RQ 2000-2006"
And mySht.Name <> "ZZZ - 2006 Pulse Global 600" Then
mySht.Delete
End If
Next mySht
Application.DisplayAlerts = True
End Sub

Would like to use:
If mySht.Name <> "ZZZ*" Then
mySht.Delete
...............................................
Thanks!

--
RyGuy

Well, I just figured it out...
Sub DelAllWorksheets()
Application.DisplayAlerts = False
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
If InStr(1, Sh.Name, "Z") Then
Sh.Select False
Else
Sh.Delete
End If
Next Sh
Application.DisplayAlerts = True
End Sub

My hope is that this may help others...
Happy Excelling!!

--
RyGuy


"ryguy7272" wrote:

> I found some VBA code (on this Discussion Group that was posted a while back)
> which allows a user to delete all worksheets except for three. I am
> wondering if there is a way to get Excel to delete all worksheets which don’t
> have “ZZZ” in the tab. I tried “ZZZ*” but didn’t have any success with that.
> Basically, I am wondering if the * (wildcard) symbol is not recognized in
> VBA…
>
> My code is below:
>
> Sub DelteAllWS()
> Dim mySht As Worksheet
> Application.DisplayAlerts = False
> For Each mySht In ActiveWorkbook.Worksheets
> If mySht.Name <> "ZZZ - USA Firms" And mySht.Name <> "ZZZ - RQ 2000-2006"
> And mySht.Name <> "ZZZ - 2006 Pulse Global 600" Then
> mySht.Delete
> End If
> Next mySht
> Application.DisplayAlerts = True
> End Sub
>
> Would like to use:
> If mySht.Name <> "ZZZ*" Then
> mySht.Delete
> ..............................................
> Thanks!
>
> --
> RyGuy