Private sub code no longer working (print area macro)

Hi

I found this code to dynamically change the print area.

It was working fine on the day i inserted the code, ive saved it as a macro enabled workbook etc

The sheets so longer update for some reason

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Isect As Range
Set Isect = Application.Intersect(Target, [D:D])
If Not Isect Is Nothing Then
Range("B" & Target.Row) = Now
End If
End Sub

Please help

Do you have enable events turned off?
You can check with:

Please Login or Register  to view this content.

if they are turned off use this to turn them on

Please Login or Register  to view this content.

Note - restarting excel will reset enableevents to true.

Hi, My events are enabled, i ran the second code just incase, restarted excel but still wont work

Ok, there doesn't seem to be anything in the code that would change the printarea. What the code does is if you change something in column D then it will add the date in column B for that particular row.

What is your code supposed to do?