Perfect. Works flawlessly. Thanks much, Gord.

Joseph

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Joseph

Try this variation.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1:A100")) Is Nothing Then
With Target
If Target.Value = "" Then
Target.Value = "X"
Else: Target.Value = ""
End If
End With
End If
End Sub