Hi Jeff,

Two things to check I guess:

1) Are you sure you put this code into the module of the worksheet where you
change the cells and not in the one of ThisWorkbook, other sheet , a normal
module (such as Module1), or even a module in another workbook?

2) Are the macros enabled?

3) Have you tried to change D3 or D5?

Regards,
KL


"JEFF" wrote in message
...
Thanks for the response... Unfortunately, it doesn't fire. Here's what I
used:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3,D5")) _
Is Nothing Then Exit Sub

Do something..............


End Sub


"KL" wrote:

Hi Jeff,

You could use the Change event of the sheet where your cells are located.
Asuming that the cells are [A1] and [C1] try copying the below code into
the
VBA module of the sheet in question:

Regards,
KL

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,C1")) _
Is Nothing Then Exit Sub
MsgBox "Change detected!"
End Sub