Is there a way for me to delete all sheets in a workbook by vba except sheet 1??? I know how to do it if they always keep the same name but the names of the other sheets are not always the same... I want like a select all except sheet 1... Any help is appreciated. Oh, Also, how can i make it bypass that message that says "all sheets will be deleted blah blah..."?? Thanks!
Sheets(Array("Sheet1", "Sheet2")).Select
ActiveWindow.SelectedSheets.Delete
End Sub
QuoteOriginally posted by jjst34
Oh, Also, how can i make it bypass that message that says "all sheets will be deleted blah blah..."?? Thanks!
For this bit use Application.DisplayAlerts=False at the start of your code and remember to set to True at the end. Not sure about your main question though - sorry!
Thanks.. that is helpful!
Hi j,
How about :
Sub DeleteSheets()
Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets("Sheet1")
On Error GoTo 0
'make sure we have at least one visible sheet
If Not ws Is Nothing Then
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = "Sheet1" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End If
'delete all the others
End SubHTH
works like a charm Richie!! Thanks very much!!!!!!!!!
Don’t have an account yet? Register yourself now and be a part of our community!