Sub AddDate()
With ActiveCell
.Value = Date
.NumberFormat = "dd mmm yyyy"
End With
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"julisimo" wrote in message
...
Thanks Bill Martin,
i thing that will be hlpfull form me...
but if you paste some example :) - will be great. I'm not very good in VBS
and macros.

Thanks in advance