Check box selection for sheet printing

Hi

I'm looking to add a front sheet to my parts workbook that will allow checkbox selection of the sheets to be printed when command button is pressed. The workbook has approximately 190 sheets so ctrl select becomes a pain!

In my naivety I assumed that a command button that has the following would work:

Private Sub CommandButton1_Click()

If b2 = True Then
PrintOut ("Sheet1")
End If

If b4 = True Then
PrintOut ("Sheet2")
End If

If b6 = True Then
PrintOut ("Sheet3")
End If
End Sub

Clearly not as it does nothing! I'm new to the programming as you may guess! Any help gratefully received.