On click question?
See fixed typo:
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
...
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!
|