Deleting sheets

[oldjay]

I want a command button that deletes all sheets except the one named Master

 

[Jacob Skaria]

Try the below

Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Sheets
If ws.Name <> "Master" Then ws.Delete
Next
Application.DisplayAlerts = True

 

[oldjay]

Thanks

Try the below

Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Sheets
If ws.Name <> "Master" Then ws.Delete
Next
Application.DisplayAlerts = True