Locking =Today() on Save as on Template
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
If ThisWorkbook.Path = "" Then
Sheets("Sheet1").Range("A1").Value = "Last Saved On " & _
Format(Date, "mm/dd/yyy")
End Sub
Placed in Thisworkbook module of the Template which I assume is a true *.XLT
template
Gord Dibben MS Excel MVP
On Thu, 9 Oct 2008 21:57:36 +1300, "Ross Thomson"
wrote:
Hi Folks,
I have a Excel Template with a =today() cell to show todays date when
opened - but would like have the date shown when the file was saved, not
todays date?
|