Need to Save As with VB

[Pauljj]

In a veiled effort to see if there is any luck with this I am posting again, I have checked to make sure I am not breaking the rules and all seems to be ok. I attach the previous post URL below

http://www.mrexcel.com/forum/showthread.php?t=571361



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

 

[VoG]

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #9 here: http://www.mrexcel.com/forum/showthread.php?t=99490).