Now returns a Variant/Date containing the current date and time according to your computer
Sub dateDemo10() Debug.Print Now End Sub