Hola amigos

He creado un pequeño formulario en excel con visual basic, el cual consiste en registrar uno datos en determinadas celdas.
bien entonces estoy intentando crear un checkbox que cuando lo marque me escriba "algo" en una celda en especifico pero no se como hacerlo, he googleado pero no encuentro nada que funcione.

este es el codigo.


Private Sub CheckBox1_Click()
aqui quiero poner el codigo para que cuando active la casilla me escriba "algo" en una celda del libro y que cuando no este activada no haga nada.

End Sub

Private Sub CommandButton2_Click()
End

End Sub

Private Sub registrar_pct_Click()

ActiveSheet.Cells(21, 1).Select
Selection.EntireRow.Insert

ActiveSheet.Cells(21, 1) = TextBox1
ActiveSheet.Cells(21, 2) = TextBox2
ActiveSheet.Cells(21, 4) = TextBox3

TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty


TextBox1.SetFocus

ActiveSheet.Cells(21, 3) = Date

End Sub

Private Sub UserForm_Click()

End Sub



Gracias de antemano.