I get a syntax error on the intersect. Any idea why?

"Tom Ogilvy" wrote:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if Target.count 1 then exit sub
if not Intersect(target,Range("B3:G99") is nothing then
Target.Value = "x"
End if
End Sub


if you want to toggle the x

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if Target.count 1 then exit sub
if not Intersect(target,Range("B3:G99") is nothing then
if isempty(Target.Value) then
Target.Value = "x"
else
Target.clearContents
End if
End if
End Sub

--
Regards,
Tom Ogilvy

"Jeff" wrote in message
...
Is there a way to add an x in a when you click in a cell in a range like
B3:G99 only and not the whole sheet? Right now I can do it to the whole
sheet
with
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Value = "x"
End Sub
Thanks!