Hi
try
dim fname as string
fname = "C:\Documents and Settings\ThoemmE1\Desktop\Shares\Web Query
Data\UK Shares by Sector\" &Format(Date, "dd-mmm-yy") & ".xls"
ActiveWorkbook.SaveAs filename:=fname

--
Regards
Frank Kabel
Frankfurt, Germany

Edgar wrote:
What is wrong with the following line of code?

I would like it to save a copy of the current workbook to
the directory listed with the name as todays date
formatted dd-mmm-yy

TIA

ActiveWorkbook.saveas ("C:\Documents and Settings\ThoemmE1
\Desktop\Shares\Web Query Data\UK Shares by Sector\" &
Format(Date, dd-mmm-yy) & ".xls")