Text in Zelle grau färben wenn CheckBox = True

Private Sub CheckBox2_Click()
ActiveCell.Select
With Range("B1:D2")
If CheckBox2.Value = True Then
.Value = "Änderung"
Else
.Value = "Neuanlage"
End If
End With
With Range("A7")
If CheckBox2.Value = True Then
.Value = "Zusatzmapping"
Else
.Value = ""
End If
End With
With Range("A6")
If CheckBox2.Value = True Then
Range("A6:E6").Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0.499984740745262
'            End With
End With
Else
.Value = "Sicherheitsgruppen"
Range("A6:E6").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
End If
End With
End Sub