Sub dateFunctions1() Debug.Print "The months between 3/15/2000 and today is: " & DateDiff("m", "3/15/2000", Now) End Sub