Verwijderen tabbladen behalve de bladen met specifieke naam

[mamin]

Hallo allemaal,

Met onderstaande code wil ik alle tabbladen verwijderen behalve de tabbladen Factuur, Register en Total.
Wat is er mis met de code?
Bij debug krijg ik ws is nothing

Sub Rechthoek3_Klikken()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook
If ws.Name <> "Factuur" & ws.Name <> "Register" & ws.Name <> "Totaal" Then
        If MsgBox("Wil je alle Sheets behalve de genoemde 3 verwijderen", vbYesNo) = vbYes Then
ws.Delete
Else 
Exit Sub
Application.DisplayAlerts True
End If
End If
Next
End Sub

 

[MDN111]

Probeer eens met deze code

Sub Rechthoek3_Klikken()
Dim ws As Worksheet
Application.DisplayAlerts = False
If MsgBox("Wil je alle Sheets behalve de genoemde 3 verwijderen", vbYesNo) <> vbYes Then Exit Sub
For Each ws In ThisWorkbook.Worksheets
    If ThisWorkbook.Sheets.Count = 1 Then Exit Sub
    If InStr("Factuur*Register*Totaal", ws.Name) = 0 Then
        ws.Delete
    End If
Next
Application.DisplayAlerts = True
End Sub

Grtz,
MDN111.

 

[mamin]

:thumb:

bedankt

"Ik had hem bijna"