Delete All Worksheets Apart From Some With Particular Name

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How would I delete all Worksheets in a Workbook except those called "HOME",
"ONE" and "TWO" (for example).

Thanks!
Dave
 
Sub DeleteSheets()
Dim sht As Worksheet
Application.ScreenUpdating = False

For Each sht In Worksheets
If sht.Name <> "HOME" Then
If sht.Name <> "ONE" Then
If sht.Name <> "TWO" Then
Application.DisplayAlerts = False
sht.Delete
Application.DisplayAlerts = True
End If
End If
End If
Next sht

Application.ScreenUpdating = True
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Setting Scope of name ranges to particular worksheet 2
Excel Copy cells from one worksheet to another workseet - increment row & do again 0
ThisWorkbook.Print question 1
Macro to create validation list of worksheet names 1
How to delete names on worksheet? 9
Marco to Delete Worksheets 2
Replace worksheet without affecting the referencing formula 1
Cannot open one particula worksheet within a workbook 2

Back
Top