How can I check a cell for current date and insert it if blank?

[Don K]

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

 

[Don Guillett]

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

 

[Don K]

Hello DOn,

I appologize, but I'm pretty new to this and don't understand your
instructions

 

[Don Guillett]

Actually, I didn't give any instructions. I wrote a macro. Copy/paste into a
macro module and assign to a button or a worksheet event. You may want to
designate the cell to use
with range("a1")