Checkbox help

Sub Process_CheckBox()

    Dim cBox As CheckBox
    Dim LRow As Integer
    Dim LRange As String

    LName = Application.Caller
    Set cBox = ActiveSheet.CheckBoxes(LName)
    
    'Find row that checkbox resides in
    LRow = cBox.TopLeftCell.Row
    LRange = "N" & CStr(LRow + 1)
    
    'Change date in column N, if checkbox is checked
    If cBox.Value > 0 Then
        ActiveSheet.Range(LRange).Value = Date
        
    'Clear date in column N, if checkbox is unchecked
    Else
        ActiveSheet.Range(LRange).Value = Null
    End If

Sub RunBothProcess()
Dim LRow As Integer
Dim LRange As String
Dim sp As Shape
    For Each sp In ActiveSheet.Shapes
        'Shades All Checked "Forms" Checkboxes
        If sp.Type = msoFormControl Then
            With sp.OLEFormat.Object
            If sp.FormControlType = xlCheckBox Then
            .ShapeRange.Fill.Visible = IIf(Sgn(.Value) > 0, -1, 0)
            .ShapeRange.Fill.ForeColor.SchemeColor = 22 '15
            LRow = sp.TopLeftCell.Row
            LRange = "N" & CStr(LRow + 1)
                If sp.OLEFormat.Object.Value > 0 Then
                    ActiveSheet.Range(LRange).Value = Date
                Else
                    'Clear date in column N, if checkbox is unchecked
                    ActiveSheet.Range(LRange).Value = Null
                End If
            End If
            End With
        End If
    Next sp
End Sub