Private Sub CommandButton1_Click()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Sh.Name Like "Check Box *" Then
If Sh.OLEFormat.Object.Value = "1" Then
UserForm1.Controls("Checkbox" & Val(Right(Sh.Name, 2))) = True
End If
End If
Next Sh
End Sub