VBA to delete sheets (with name) when closing

[sassriverrat]

I have a workbook that creates sheets named "Noon", "Noon2", "Noon3" etc based on the users' needs (button will generate a new "Noon" on demand. I'd like a piece of code that will delete all sheets named "Noon+# so that the original template is not saved over. How might I do this. I presume piece of code goes in close (boolean) piece of thisworkbook.

Thanks!

 

[Tim_Excel_]

With Workbooks("NAME") 'EDIT

For i = 1 to .Sheets(.Sheets.Count)

If Instr(.Sheets(i).Name, "Noon")<>0 And Len(.Sheets(i).Name)>4 Then 
    Application.DisplayAlerts = False    
    Sheets(i).Delete
    Application.DisplayAlerts = True
Next i

End With

Try this. Make sure you make a backup before executing the code.

 

[sassriverrat]

Will give it a shot. Thanks!

 

[steve the fish]

This would be more robust to the brief:

Application.DisplayAlerts = False

For Each sh In ThisWorkbook.Worksheets
    If LCase(sh.Name) Like "noon*" Then
        If Len(sh.Name) > 4 Then
            If IsNumeric(Mid(sh.Name, 5, Len(sh.Name))) Then sh.Delete
        Else
            sh.Delete
        End If
    End If
Next

Application.DisplayAlerts = True