The manual method is easier and the code
http://www.gmayor.com/installing_macro.htm would be
Sub InsertUSFormatDate()
Selection.InsertDateTime _
DateTimeFormat:="MMMM d, yyyy", _
InsertAsField:=False
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org