Describe "doesn't work" for us.

--
Rick (MVP - Excel)


"Cheetahke" wrote in message
...
Hi Tom,

Thanks for the remarks. I had the right code in my worksheet, but mistyped
it here.
I've tried again, and it still doesn't work. I don't know what's wrong. Is
it possible that it's because I work with Excel 2003?

"Tom Hutchins" wrote:

You have clearly retyped some of your code in your post. The code you
submitted is missing a closing right parentheses each time after the
Intersect statement. This works for me:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
Set LastCellChanged = Target
If Not Intersect(LastCellChanged, Range("f6:f25")) Is Nothing Then
MsgBox "A"
Else
If Not Intersect(LastCellChanged, Range("h2")) Is Nothing Then
MsgBox "B"
Else
MsgBox "C"
End If
End If
End Sub

I assume you have some reason to assign Target to a range variable
LastCellChanged each time the event fires, instead of just using Target.

Since this is a worksheet event, it needs to be placed on the code module
for the particular worksheet where you want this to work, not in
ThisWorkbook
or a general VBA module.

Hope this helps,

Hutch

"Cheetahke" wrote:


Is it possible to use more than once the intersect methode? I tried
next
code, but it does not work. Any ideas?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
Set LastCellChanged = Target
If not intersect(LastCellChanged, Range("f6:f25") is nothing then
'Do something
else
If not intersect(LastCellChanged, Range("h2") is nothing then
'Do something else
else
'Do 3rd thing
end if
end if

End Sub