URGENTE - Problemas con checkbox

Necesito de ayuda URGENTE por favor!!

He intentado hacer lo siguiente: cada vez que doy click en un check,
si este toma el valor de verdadero que se escriba 1 en cierta celda,
si toma el valor de falso que se escriba 0 en la misma. He tratado con
los siguientes procedimientos pero me sale error. Qué estoy haciendo
mal?? Cómo hago que la variable de ingreso a la función ActivaPersonas
sea un checkbox como tal y no el Valor del mismo????? Es posible
utilizar objetos (checkbox, textbox,etc) como parámetros de
procedimientos??

En el Formulario:

Private Sub chk4_Click()
ActivaPersonas frmEdades.chk4
End Sub

Y en Módulo1:

Sub ActivaPersonas(Chk As CheckBox)

Select Case Chk
Case frmEdades.chk4
If frmEdades.chk4.Value = True Then
Worksheets("Hoja4").Cells(5, 1) = 1
Else
Worksheets("Hoja4").Cells(5, 1) = 0
End If
Case frmEdades.chk9
If frmEdades.chk9.Value = True Then
Worksheets("Hoja4").Cells(6, 1) = 1
Else
Worksheets("Hoja4").Cells(6, 1) = 0
End If
End Select

End Sub

Ahhhh cabe indicar que en realidad son 14 cheks por lo cual se
imaginarán lo extenso del código, he puesto únicamente dos GRACIAS
nuevamente!!