MonthName(Month(Date), True)
Sub Main7() Debug.Print "Today's date is: " & Date Debug.Print "The month abbreviated is: " & MonthName(Month(Date), True) End Sub