I have this Function that places the current date into a cell on a worksheet, from a NOW() entry on a FORM:
Function FormatDate(X As String) As Variant
Dim tempDate As Date
If IsDate(X) Then
tempDate = Format(X, "dd/mm/yy")
FormatDate = tempDate
Else...