Sub insertdate()
With ActiveCell
If Not IsDate(.Value) Then .Value = Date
End With

--
Don Guillett
SalesAid Software

"Don K" <Don wrote in message
...
I am modifying the invoice template. I want to create a formaula that
checks
the date cell for the current date. If a date occupies the cell nothing
happens, otherwise, the current date is inserted. Can this be done?

Thanks
Don