In message , Ron de Bruin
writes
Hi Nospam

Ctrl ; insert the date

Or with code
ActiveCell.Value = Format(Date, "dd-mmm-yyyy")



Thanks that did the trick


--
Nospam