Here it is

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="Galashiels Tea Fund " & Format(Date,
"dd-mm-yy hh:mm:ss") & ".xls"
End Sub

Thanks

"Nikos Yannacopoulos" wrote:



santaviga wrote:
Hi, Put in the new code but had to take away symbols":" as they are not
allowed in filename so when replaced with "-"
Good point, I should have thought of that!



it saves but does not recognise
a date, saves as 00-00-00 in the time part.
This is funny, it shouldn't... care to re-post your modified code?

Nikos