Arbeitsblätter per Makro verstecken

ich möchte alle Arbeitsblätter bis auf zwei bestimmte ausblenden. Dazu habe ich schon folgenden VB-Code gefunden:
--------------------------------
Sub SheetsHidden()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> ActiveSheet.Name Then
wks.Visible = xlVeryHidden
End If
Next wks
End Sub
---------------------------
Allerdings werden hier außer dem aktuellen Blatt alle ausgeblendet und ehrlich gesagt hab ich im Moment keine Idee, wie ich ActiveSheet.Name durch z.B. sheets("Test") (vom Sinn her) ersetzen kann.

Hat jemand eine Idee?

Gruß und Danke
Thorsten