Problem with my SaveAs code ?

[Pauljj]

I want this macro to save my activeworkbook in a different location, adding todays date to it
and I have done the following

Sub Saves()

Dim wbo As Workbook
Dim mydate As Date

Set wbo = ActiveWorkbook

mydate = Format(Date, "dd-mmm-yy")

fn = "Report 3 Template " & mydate & ".xls"

fp = "\\Tfcluster-vol1\vol1\DEPART\GROUND\123 FILES\6. RESERVATIONS - Outstanding requests\2.Saved 03 Reports Files\"

wbo.SaveAs Filename:=fp & fn

wbo.Close savechanges:=False


End Sub



It errors at the point which says "wbo.SaveAs Filename:=fp & fn"

because it says the file name does not exist (well it shouldn't) or because the file is in use by another program.....very unlikely ?!!?

Can anyone see any problems with what I have written please

Regards
Paul

 

[Pauljj]

Any help please, its the one last thing that I am stuck on (for today at least)

 

[Pauljj]

Desperate for assistance...if any is out there

 

[Pauljj]

Last try for help

 

[Pauljj]

I'm not entirely sure what I do now if no one knows the answer to this question ...any guidance on who I can go to ?

 

[MARK858]

Not sure if any of it will help but try having a read of the links below

http://blogs.office.com/b/microsoft.../use-the-vba-saveas-method-in-excel-2007.aspx

http://http://www.excely.com/excel-vba/save-workbook-as-new-file.shtml

http://www.rondebruin.nl/saveas.htm

 

[MARK858]

Sorry for the second link try especially as it looks more promising

www.excely.com/excel-vba/save-workbook-as-new-file.shtml

 

[MARK858]

Being honest I managed to save a new file to my desktop with just

ActiveWorkbook.SaveAs Filename:= _
"pathname" & "filename " & Format(Now, "dd-mm-yy") _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Obviously change the path, file format and file name to suit

 

[Pauljj]

Mark, thank you so so much for getting back to me, I will check it all out

 

[Pauljj]

mark, that worked a treat, thank you very much