WeekdayName(Weekday(Date), True)
Sub Main4() Debug.Print "Today's date is: " & Date Debug.Print "The weekday abbreviated is: " & WeekdayName(Weekday(Date), True) End Sub