Sub dateFunctions() Debug.Print "The present date and time is: " & Now Debug.Print "Today's date is: " & Date End Sub