data load by checkbox label name

[asyamonique]

Private Sub CheckBox1_Click()
 Dim i As Integer
    For i = 2 To 10
        Me.Controls("CheckBox" & i).Value = CheckBox1.Value
    Next i
End Sub

Good Day,
How can i send the checkbox labled names to the column"b' automaticly when they are selected?

 

[asyamonique]

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Cells(1, 1).Value = CheckBox1.Caption
Else
Cells(1, 1).Value = ""
End If
If CheckBox2.Value = True Then
Cells(2, 1).Value = CheckBox2.Caption
Else
Cells(2, 1).Value = ""
End If
If CheckBox3.Value = True Then
Cells(3, 1).Value = CheckBox3.Caption
Else
Cells(3, 1).Value = ""
End If
If CheckBox4.Value = True Then
Cells(4, 1).Value = CheckBox4.Caption
Else
Cells(4, 1).Value = ""
End If
If CheckBox5.Value = True Then
Cells(5, 1).Value = CheckBox5.Caption
Else
Cells(5, 1).Value = ""
End If

End Sub

I just found out like that, but still wondering is there any easy way to do?
And also when the userform re opened the checked boxes having unchecked itself...how can i fix it?
Cheers