Workbook_SheetChange simple example will not work

[nikifi]

I am trying to have cell B4 on sheet4 update to today's date if J3 changed for worksheet named "Review_Tracking". It seems simple and I can't figure out why it doesn't work. I am a complete newbie to VBA coding, just starting looking at it today. Thanks!

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
 If Sh.Name = "Review_Tracking" And Target.Address = "$J$3" Then Sheet4.Range("$B$4") = ToDate
 
 
 End Sub

 

[VoG]

Replace ToDate with Date

 

[nikifi]

Sorry, I meant for it to say Today. That is the only part of the code I had hand modified after copying it from my VBA editor. My actual code has Date in it and it does not work. I used Date in some other code and it displayed the time as well, but I only want the date so I found somewhere that says to use ToDay, which is what I meant to type...

So, code is still not working. Any help will be appreciated. Thanks

 

[VoG]

Check what Target,Address returns

 

[nikifi]

Even when I change Target Address and use a different method it does not work. It is something fundamental that I dont understand.

 

[VoG]

Make sure that events are enabled. In the VBE press CTRL + G and in the Immediate Window type

Application.EnableEvents=True

and press Enter.

Obviously check that macros are enabled as well.

 

[nikifi]

Thanks, I figured what the issue was. I was in a specific worksheet instead of the workbook. I told you I was new . Thanks for the help