Hi Edward
adding the code:
Worksheets("Sheet4").Range("E3") = Now
will do it if your working with a single Excel file.

Otherwise you have to add the Filename:
WorkBooks("filename.xls").Worksheets("Sheet4").Range("E3") = Now