Clear data in excel sheet & Delete More than One Worksheet

[JOHATUP]

exploring and beginner on this VBA code, I was intend to combine 2 VBA code where in I clear data in "MASTER" Sheet and "MASS SENDING" sheet, the code below did work in clearing data in the stated sheets so I added code to delete few sheets(paticularly about 20-50 sheets needed to be deleted) that does not needed anymore, exept for my "MACRO" sheets, "MASTER" and "MASS SENDING" sheets. But upon running the code it still delete the exempted Sheets stated. Need help in fixing this code below.

VBA CODE:

Sub Deletion()

Sheets("MASTER").Range("A2:V1048575").ClearContents

Sheets("MASS SENDING").Range("A2:G1048575").ClearContents



Dim Ws As Worksheet



For Each Ws In ActiveWorkbook.Worksheets

If ActiveSheet.Name <> "MASTER" & "MASS SENDING" Then

Ws.Delete



End If

Next Ws


End Sub

 

[jolivanes]

Change references where required.

Sub Clear_All_With_Exeption()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
Select Case sh.Name
Case "Sheet1", "Sheet3", "Sheet5"    '<------ Do nothing in these Sheets
Case Else
    With sh
        .UsedRange.Offset(1).ClearContents
    End With
End Select
Next sh
End Sub

If you want to delete the Sheets from the Workbook, try this.

Sub Delete_With_Exeption()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
Select Case sh.Name
Case "Sheet1", "Sheet3", "Sheet5"    '<------ Do nothing with these Sheets
Case Else
    Application.DisplayAlerts = False
        sh.Delete
    Application.DisplayAlerts = True
End Select
Next sh
End Sub

 

[kevin9999]

Change this

If ActiveSheet.Name <> "MASTER" & "MASS SENDING" Then

to this

If Ws.Name <> "MASTER" And Ws.Name <> 'MASS SENDING' Then

 

[JOHATUP]

Change this

to this

If Ws.Name <> "MASTER" And Ws.Name <> 'MASS SENDING' Then

Hi Kevin this one works, thank you. Do you know how to remove the "permission" when deleting each single sheets? When the code runs it ask to be confirm before deleting the sheets which may take time cause probably i might have large number of sheets to delete.

 

[kevin9999]

Wrap the deletion line in false/true application display alerts like this:

Application.DisplayAlerts = False
   Ws.Delete
Application.DisplayAlerts = True

 

[jolivanes]

Re: "Do you know how to remove the "permission" when deleting each single sheets"
I guess no use trying to help some people as they don't try the suggested macros.
2 Days ago the solution to this was given.