Hallo,

probier mal: ActiveX Checkbox einfügen >>> rechter Mausclick darauf >>> Code anzeigen >>> dann Code einfügen:

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

Gruß,