Vælg ark til udskrift med VBA

Hej

Jeg har lavet en userform med CheckBox for hvert ark og en Knap til udskrift.

Jeg vil gerne have funktionen til at vælge de ark der skal udskrives på baggrund af mine CheckBox valg. Men jeg kan ikke få det til at virke hverken med nedenstående eller array, da jeg ikke altid skal have alle ark skrevet ud.

Er der en som kan hjælpe med en løsning?

Private Sub CommandButton1_Click()


    If CheckBox1.Value = True Then Sheets(Ark18.Range("I_Forside").Value).Select
    If CheckBox2.Value = True Then Sheets(Ark18.Range("I_Indhold").Value).Select
    If CheckBox3.Value = True Then Sheets(Ark18.Range("I_ForeningsOpl").Value).Select
    If CheckBox4.Value = True Then Sheets(Ark18.Range("I_Ledelsespategn").Value).Select
    If CheckBox5.Value = True Then Sheets(Ark18.Range("I_RevPategn").Value).Select
    If CheckBox6.Value = True Then Sheets(Ark18.Range("I_ForbundsRev").Value).Select
    If CheckBox7.Value = True Then Sheets(Ark18.Range("I_Beretning").Value).Select
    If CheckBox8.Value = True Then Sheets(Ark18.Range("I_AnvendtRegn").Value).Select
    If CheckBox9.Value = True Then Sheets(Ark18.Range("I_HovedNøgle").Value).Select
    If CheckBox10.Value = True Then Sheets(Ark18.Range("I_Resultatopg").Value).Select
    If CheckBox11.Value = True Then Sheets(Ark18.Range("I_Aktiver").Value).Select
    If CheckBox12.Value = True Then Sheets(Ark18.Range("I_Passiver").Value).Select
    If CheckBox13.Value = True Then Sheets(Ark18.Range("I_Noter").Value).Select
 

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub