Macro command to delete tabs with "Quote *"

[bam]

I have a macro that creates up to 8 Excel tabs titled "Quote 1", "Quote 2",..... depending on the options chosen. How do I write the macro command to delete all of the tabs with the word "Quote " in them so that I can rerun the macro and create new quotes?

 

[Case_Germany]

Hi,

try:

Sub Test()
    Dim wksSheet As Worksheet
    For Each wksSheet In ThisWorkbook.Worksheets
        If wksSheet.Name Like "Quote*" Then
            Application.DisplayAlerts = False
            wksSheet.Delete
            Application.DisplayAlerts = True
        End If
    Next wksSheet
End Sub

Case_Germany

 

[DonkeyOte]

Note at least 1 worksheet must be present in a given file at any one time so if you have only QUOTE sheets in your file you must create a non-quote sheet that is not hidden such that all Quote sheets may be deleted without error.

Sub Delete_Quote_WS()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
    Select Case InStr(UCase(ws.Name), "QUOTE")
        Case Is > 0
            ws.Delete
    End Select
Next ws
Application.DisplayAlerts = True
End Sub

 

[bam]

I "Like" your response. The "Like" command works like a charm. I'll keep the other suggestion handy for other uses.
Have a good one.