Hallo is het ook mogelijk dat dit
alleen in Cel C5 tot C10 werkt
ik krijg nu in de hele werkmap kruisjes
alleen in Cel C5 tot C10 werkt
ik krijg nu in de hele werkmap kruisjes
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cl As Range
Rng = ActiveCell.Address
If Range(Rng) = "X" Then Range(Rng) = " ": Exit Sub
If Range(Rng) = " " Then Range(Rng) = "X"
End Sub