For multiple cells you can do something like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range
For Each cel In Target
If cel.Value < "" Then
cel.Value = ""
Else
cel.Value = "X"
End If
Next cel
End Sub

If you only want certain cells to be affected you can put in another i
statement:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range
For Each cel In Target
If cel.Column < 3 Then
If cel.Value < "" Then
cel.Value = ""
Else
cel.Value = "X"
End If
End If
Next cel
End Sub

How's that? - Piku

--
Message posted from http://www.ExcelForum.com