Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A1").Value = Format(Date, "dd mmm yyyy")
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--
HTH

Bob Phillips

"Johnathon Aaron Steel" wrote in message
...
I have a Template and when I open it up I want it to be able to insert
the date in a specific cell on open and not have to type it in.

Is this possible?

Thanx

JAS