Afkrydsningsfelt skal ændre cellefarve

Hvis jeg ellers har forstået dig rigtigt vil jeg tro at nedenstående kan bruges. Sub UnCheck1 linkes til den første checkbox og Sub UnCheck2 linkes til den anden. Lav flere Subs lig med UnCheck2 til de øvrige checkboxe i det omfang det er nødvendigt.

Sub UnCheck1()
If Range("C3") = True Then
ActiveSheet.Unprotect
    Range("C4:C7").Select
    Selection.Locked = False
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
    End With
    Range("C4").Select
Else
ActiveSheet.Unprotect
    Range("C4:C7").Select
    Selection.ClearContents
    Selection.Locked = True
    With Selection.Interior
      .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
    Range("C8").Select
End If
End Sub

Sub UnCheck2()
If Range("D3") = True Then
ActiveSheet.Unprotect
    Selection.Locked = False
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
    End With
Else
ActiveSheet.Unprotect
    Range("D3").Select
    Selection.Locked = True
    With Selection.Interior
      .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
End If
End Sub