Alle Tabellenblätter ausblenden - Ausnahmen

Sub Ausblenden()
Sheets(Array("A", "B", "C", "D", "E", "F", "G", "H", "I", _
"K", "L", "M", "N", _
"O", "P")).Select
Sheets("AAA").Activate
Sheets("BBB").Select Replace:=False
'   ActiveWindow.SelectedSheets.Delete (Löschen)
ActiveWindow.SelectedSheets.Visible = False
End Sub

Mit diesem Marko werden alle nicht benötigten Tabellenblätter ausgeblendet. Mit der Zeit ist diese Liste schon sehr lang geworden und es kommen immer mehrere dazu. D.h. ich muss immer die Tabellenblätter-Namen eintragen. Dieses Marko gibt es in mehreren Ausführungen.
Jetzt zu meiner Frage: Ist es möglich dieses Systematik nur in umgekehrter Weise zu händeln. D.h. Alle Tabellenblätter sollten ausgeblendet werden bis auf "XXX", somit wäre die Liste kürzer.
Oder gibt es andere Vorschläge / Lösungen von Eurer Seite dank eurer Erfahrungen?
Danke im Voraus.
GLG miss18