excel 2013 to excel 2010 formula

[Mikeymike_W]

Hi Everyone,

I had created a form using excel 2013 but now need to recreate the same form in excel 2010.

I have just about finished, just copied and pasted all the code over.

There is one formula (so far that worked in 2013 but does nothing now so was wondering if there is something I need to change for 2010?

If Target.Address(0, 0) = "G10" Then
If IsDate(Target.Value) Then
If Target.Value < DateAdd("m", -4, Date) Then MsgBox "The CT Scan is more than 4 months old", , "CT Date"
Target.Select
End If
End If

Then should tell the user if the date is more than 4 months from todays date but it does nothing now.

Thanks in advance for all your help,

Mike

 

[Peter_SSs]

I assume that is a Worksheet_Change code. If so, it works fine for me in Excel 2010.

Perhaps your 'Events' have become disabled. In a standard module put this short macro & run it, then try again.

Sub EE()
  Application.EnableEvents = True
End Sub

 

[Mikeymike_W]

Hi Peter,

Thanks for your quick response.

It seems you are right, working a charm now.

Thanks again and all the best,

Mike