Delect all Worksheets that begind with Sheet

[MarkCBB]

Hi There,

This is a strange request for some code.


I need some code that is Triggered "On Open" of the workbook, that deletes all the worksheets of that workbook that begin with Sheet.

I.e. if I have 3 Sheets And I name one MASTER, and the other 2 are called Sheet1 and Sheet2, they must be deleted when the workbook is opened again.

the number of sheets that will be deleted will change every day.

 

[VoG]

Try this in the ThisWorkbook module

Private Sub Workbook_Open()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Me.Worksheets
    If ws.Name Like "Sheet*" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

 

[MarkCBB]

Thats great, thanks VoG. It works prefectly!