MonthName(month) returns A String containing the name of the month represented by month
Sub dateDemo9() Debug.Print MonthName(Month(Date)) End Sub