Excel macro to put static date in next cell down when opening workbook

[ecorner]

I would like a macro which puts the date in (static not updating) when the workbook is opened. This needs to be in the next cell down from the last entry.

Thank you for your help.

Elaine

[bodhi808]

Assuming that you want the date to appear in column A and on the opening worksheet then this should do the trick.
I needs to be saved in workbook and not a module.

Private Sub Workbook_Open()
lr = Cells.Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False).Row + 1
Range("A" & lr) = Date
End Sub

[ecorner]

Thank you for your time.