single group of code to reference multiple sequential names of active x check boxes

I have names A2 to A10 and other sequential name lists. I want to be able to have 1 section of code that can reference each list instead of each on individually.

Private Sub CheckBoxA2IN_Click()

Dim TimeIn As Date
TimeIn = Now()

If CheckBoxA2IN.Value = True Then Range("Q4").Value = TimeIn
If CheckBoxA2IN.Value = False Then Range("Q4").Value = ""


End Sub
Private Sub CheckBoxA2OUT_Click()

Dim TimeOut As Date
TimeOut = Now()

If CheckBoxA2OUT.Value = True Then Range("O4").Value = TimeOut
If CheckBoxA2OUT.Value = False Then Range("O4").Value = ""

End Sub
Private Sub CheckBoxA3IN_Click()

Dim TimeIn As Date
TimeIn = Now()

If CheckBoxA3IN.Value = True Then Range("Q5").Value = TimeIn
If CheckBoxA3IN.Value = False Then Range("Q5").Value = ""

End Sub
Private Sub CheckBoxA3OUT_Click()

Dim TimeIn As Date
TimeIn = Now()

If CheckBoxA3OUT.Value = True Then Range("O5").Value = TimeIn
If CheckBoxA3OUT.Value = False Then Range("O5").Value = ""

End Sub

Private Sub CheckBoxA4IN_Click()

Dim TimeIn As Date
TimeIn = Now()

If CheckBoxA4IN.Value = True Then Range("Q6").Value = TimeIn
If CheckBoxA4IN.Value = False Then Range("Q6").Value = ""

End Sub

Private Sub CheckBoxA4OUT_Click()

Dim TimeIn As Date
TimeIn = Now()

If CheckBoxA4OUT.Value = True Then Range("O6").Value = TimeIn
If CheckBoxA4OUT.Value = False Then Range("O6").Value = ""

End Sub

Thanks in advance.