HI frnd,


Try this code...

currdate = Application.Text(Now(), "mm/dd/yy HH:MM")
Sheets("Pricing Worksheet").Range("$L$5") = currdate

Thanks & regards
u r frnd...