Build sheet array from checkboxes?

I have a user form with checkboxes, one for each sheet in the workbook. The user selects the appropriate checkboxes then clicks a command button that prints selected sheets.

How do I build the array so it holds only the selected sheets?

I'm using this to print the sheets:

Sheets(Array(sh1, sh2, sh3)).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

sh1, sh2 hold the sheet names:

If CheckBox1.Value = True Then
sh1 = "Control Panel"
End If

I hope this is enough information, thanks for helping me.

Excel 2000

Hello proepert,

Here is a macro for CommandButton1 on a UserForm to print the worksheets that have their CheckBox checked. Regular Arrays are zero based. The Sheets collection is 1 based. This is way you can not copy the names into a standard VBA array. The macro assumes each CheckBox.Caption is the name of a worksheet and that these are the only checkboxes on the UserForm.

Private Sub CommandButton1_Click()
 'PRINT SHEETS
  
  Dim ChkBox As MSForms.CheckBox
  Dim Ctrl As Object
  Dim I As Integer
  Dim ShtArray() As Variant
  
    For Each Ctrl In Me.Controls
      If TypeName(Ctrl) = "CheckBox" Then
        Set ChkBox = Ctrl
        If ChkBox.Value = True Then
          I = I + 1
          ReDim Preserve ShtArray(1 To I)
          ShtArray(I) = ChkBox.Caption
        End If
      End If
    Next Ctrl

    Sheets(ShtArray).PrintOut
  
End Sub

Thank you very much. This works well.