AFAIK Andy there's no built in way.
Try:

Sub getdate()
MsgBox getDay(Day(Now)) & " " & MonthName(Month(Now))
End Sub

Function getDay(dayNum As Long) As String
Select Case dayNum
Case Is = 1, 21, 31
getDay = dayNum & "st"
Case Is = 2, 22
getDay = dayNum & "nd"
Case Is = 3, 23
getDay = dayNum & "rd"
Case 4 To 30
getDay = dayNum & "th"
End Select
End Function

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials