Sub InsertDate
Range("A1") = Format(Date,"dd mmm yyyy")
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"james" wrote in message
...
how do i use a maco to date a doc with today's date, which
will not be updated in the future, unless the macoo is run
agaain?