Copiar el caption de un checkbox a una celda especifica

Hola

Tengo un formulario con texbox y checkbox. Y un commandbuton llamado guardar. Ya logre programar todos los texbox y combobox, pero a la vez quiero copiar el checkbox activo o copiar el caption.

Este es el código

Private Sub CommandButton4_Click()
Sheets("hoja2").Activate
Dim CeldaInicial As Variant
Dim col As Integer
Dim fila As Integer
CeldaInicial = "A1"
Set CeldaInicial = Range(CeldaInicial)
col = CeldaInicial.Column
If CeldaInicial.Offset(1, 0).Value = "" Then
 fila = 2
Else
 fila = CeldaInicial.End(xlDown).Row + 1
End If
Cells(fila, col).Value = TextBox1.Value
Cells(fila, col + 1).Value = TextBox2.Value
Cells(fila, col + 2).Value = ComboBox1.Value
Cells(fila, col + 3).Value = ComboBox2.Value
Cells(fila, col + 4).Value = TextBox3.Value
Cells(fila, col + 5).Value = TextBox6.Value
Cells(fila, col + 6).Value = TextBox4.Value
Cells(fila, col + 7).Value = TextBox7.Value
Cells(fila, col + 9).Value = TextBox5.Value
Set CeldaInicial = Nothing
TextBox1 = ""
TextBox2 = ""
ComboBox1 = ""
ComboBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox1.SetFocus
End Sub

Espero tu ayuda.

Gracias