Month(Date)
Sub Main5() Debug.Print "Today's date is: " & Date Debug.Print "The month is: " & Month(Date) End Sub