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