I have 400 checkboxes (beginning with cbCheck1 thru cbCheck400). How do I
write code that doesn't have to repeat this procedure 400 times?

Private Sub cbCheck1_Click()
Select Case cbCheck1.Value
Case True: LblOnHold1.Visible = True: LblOnHold1.PrintObject = True
Case False: LblOnHold1.Visible = False: LblOnHold1.PrintObject = False
End Select
End Sub