Option Explicit
Private Sub CheckBox1_Click()
Dim objFormatCondition As FormatCondition
If CheckBox1.Value Then
CheckBox1.Caption = "Fadenkreuz an"
For Each objFormatCondition In ActiveSheet.UsedRange.FormatConditions
objFormatCondition.Interior.Color = RGB(169, 208, 142)
Next
Else
CheckBox1.Caption = "Fadenkreuz aus"
For Each objFormatCondition In ActiveSheet.UsedRange.FormatConditions
objFormatCondition.Interior.ColorIndex = xlNone
Next
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Target.Calculate
End Sub