Automatic time and date change

would actually work better if the module code is:

Sub Record()
With Sheets("Sheet1")
With .Range("b1")
.Formula = _
"=NOW()"
.Value = .Value
End With
End With
End Sub

(the code on the worksheet is fine though)

Regards
Strud