=today() formula at a cell via macro

[sujittalukde]

Can a macro be provided which will put today's date to a cell on opening a WB? The user can put any other date to that cell but on reopening of the WB todays date should come to that cell? If I use the formula =today(), the problem is that it the user changes the date nad saves the date, then on reopening the file new dte comes in rather than today's date?

 

[zzjasonzz]

Right click on the sheet tab, and go view code. then on the left under Microsoft Excel Objects there will be ThisWorkbook, double click on it it should bring up a white box/screen then paste this in:

Private Sub Workbook_Open()
    Range("A1").Formula = "=today()"
End Sub

obviously substitute A1 for the cell you want

 

[hsk]

Private Sub Workbook_Open()
Range("A1").Value = Date
End Sub

 

[sujittalukde]

THanks its working great