Insert & remove data into a cell by selecting it

[The Dutchman]

I have a named range called "fill_range" that, when you click on any cell in this range it will either place an "X" in the cell or if the cell has contents, clear the contents.

The code I have which fives me an End If blocking error message is...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Intersect(Target, Range("fill_area")) Is Nothing Then
        If Not (IsEmpty(ActiveCell)) Then ActiveCell.ClearContents
            Else
                ActiveCell.Value = "X"
        End If
End If
 
End

Thx

 

[stnkynts]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Intersect(Target, Range("fill_area")) Is Nothing Then
        If Not (IsEmpty(ActiveCell)) [COLOR=red]Then ActiveCell.ClearContents[/COLOR]
            Else
                ActiveCell.Value = "X"
        End If
End If
 
End

The red portion is causing the End If error. It should look like this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Intersect(Target, Range("fill_area")) Is Nothing Then
        If Not [COLOR=black]IsEmpty(Target) Then [/COLOR]
[COLOR=black]               Target.ClearContents[/COLOR]
            Else
                [COLOR=black]Target[/COLOR].Value = "X"
        End If
End If
 
End Sub

Also, in your OP you said your range was called "fill_range" but you put "fill_area". Not sure if this is just a typing error.

I edited some of your stuff too.

 

[wigi]

For instance:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim rng As Range
    Dim rngIntersection As Range

    Set rngIntersection = Intersect(Target, Range("fill_area"))

    If Not rngIntersection Is Nothing Then
        For Each rng In rngIntersection
            If Len(rng.Value) Then
                rng.ClearContents
            Else
                rng.Value = "X"
            End If
        Next
    End If

End Sub

 

[The Dutchman]

Many Thanks. I did make an error naming the range.