Macro to delete worksheets

[mac_us_27]

I am trying to create a macro that will delete all worksheets except for worksheets I do not want deleted. I want all worksheets to be deleted except for worksheets ABC and DEF. I am having trouble and would be greatful for any help. Thank you.

The code I am using is as follows:

Sub DeleteSheets()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

If ws.Name <> "ABC" Then
Application.DisplayAlerts = False
If ws.Name <> "DEF" Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws

End Sub

[benishiryo]

hi mac_us_27, welcome to the forum. Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code in [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

then try this:

Please Login or Register  to view this content.

[mac_us_27]

Thank for this, but one more question if I wanted to have five worksheets excluded...would it look like this?

Sub DeleteSheets()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

If ws.Name <> "ABC" And ws.Name <> "DEF" And ws.Name <> "EKF" And ws.Name <> "DFC" And ws.Name <> "QRS" And ws.Name <> "FOB" Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws

End Sub

[jindon]

One way

Please Login or Register  to view this content.