Thanks Folks, - works a treat
Ya saved my bacon



"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Forgot the End If

End If
End Sub


Gord

On Thu, 09 Oct 2008 14:36:21 -0700, Gord Dibben <gorddibbATshawDOTca
wrote:

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?