Office: Register löschen

Hallo

Ich möchte mit einem VBA alle Register ausser "RF", "Speichern" und "Übersicht" löschen. Alle anderen (beliebigen) sollen gelöscht werden.

Wie kann ich das machen?

Danke für die Hilfe

taad

 

Hallo!

Code:

Sub xyz()
Dim Blatt As Worksheet
Application.DisplayAlerts = False
For Each Blatt In ThisWorkbook.Worksheets
If Blatt.Name <> "RF" And Blatt.Name <> "Speichern" And Blatt.Name <> "Übersicht" Then Blatt.Delete
Next Blatt
Application.DisplayAlerts = True
End Sub

 

Danke Schatzi