MonthName(Month(Date))
Sub Main6() Debug.Print "Today's date is: " & Date Debug.Print "The name of the month is: " & MonthName(Month(Date)) End Sub