Run-time error 1004/Save file macro

**egglee** · 06-04-2013, 05:52 AM

I am trying to set up a macro in a template that when run will set the filename and file path and save as a macro enabled document. What I need to include in the filename is text from C7 and the date from C9 e.g. 4 June 2013

Have used the following code

Sub SaveBook()
sFile = Range("C7").Value & Range("C9") & ".xlsm"
ActiveWorkbook.Saveas Filename:="C:\Users\Lesley\Documents\" & sFile, FileFormat:=52 
End Sub

When I run the macro I get the following error (the second line as highlighted above seems to be the issue).

Run-time error 1004
The file could not be accessed. Try one of the following

I hope this all makes sense, because I am very much a noob when it comes to vba

Thanks

**nathansav** · 06-04-2013, 05:55 AM

what is in C7 and c9 when you get the error

**egglee** · 06-04-2013, 05:56 AM

A first and last name

**nathansav** · 06-04-2013, 05:57 AM

can you show me exactly? Is c9 todays date?

**egglee** · 06-04-2013, 05:59 AM

C7 John Smith
C9 4 June 2013

**nathansav** · 06-04-2013, 06:11 AM

You don't need the XLSM and you need to use the .text for the date

sfile = Range("C7").Value & Range("c9").Text
ActiveWorkbook.SaveAs Filename:="C:\Users\User\Documents\" & sfile, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled