Udskrive aktive ark undtagen 2

Jeg har et excel ark som jeg skal bruge til nogle afstemninger til regnskab.

Jeg har et tilføjelsesprogram der allerede nu skjuler de ark, som skal skjules. Dog vil jeg gerne lave en makro der markerer alle de aktive ark pånær to og så sender dem til udskrivning.

Jeg har et makro som virker, når ingen af arkene er skjult, men vil gerne have en makro der kan tage de viste, da koden ellers går i fejl.

Nedenfor er koden som den er nu. Håber der er nogle, der kan hjælpe.

Sub PrintAfstemninger()
' * ' Initialize
      Const Sheet_Not_To_Select_01 As String = "Indtast"
      Const Sheet_Not_To_Select_02 As String = "Master"


' * ' Define variables
      Dim WS As Worksheet


' * ' Select all sheets, but the one specified
      For Each WS In Worksheets
            If WS.Name <> Sheet_Not_To_Select_01 And WS.Name <> Sheet_Not_To_Select_02 Then WS.Select      ' Make sure the sheet is not among any selected sheets already
      Next
      For Each WS In Worksheets
            If WS.Name <> Sheet_Not_To_Select_01 And WS.Name <> Sheet_Not_To_Select_02 Then WS.Select False
      Next
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False


ES: ' End of Sub
      Set WS = Nothing


End Sub