Excel 2016 VBA Run-time error '1004': Your changes could not be saved...

Question

Can anybody help me debug this line in the Macro I'm trying to do please,

Sub SaveWithNewName()

Dim NewFN As Variant

    ActiveSheet.Copy

    NewFN = "Users/gozmani/Desktop/IG Networks LTD/Inv" & Range("F4").Value & ".xlsx"

ActiveWorkbook.SaveAs NewFN, FileFormat:=52

    ActiveWorkbook.Close

    NextInvoice

End Sub

I tried different file format codes but can't make it work, I get the Error 1004 message "Your changes could not be saved to 'Inv2091.xlsx', but were saved to a temporary document...."

Answer 1

This doesn't solve my problem. Having the same as above listed.

I'm using ActiveWorkbook.Path & Application.PathSeparator & NewFilename to build my string for executing

ActiveWorkbook.SaveAs Filename:=FilenameStr, FileFormat:=xlCSV

and it just gives 1004 errors.

...

So, I instead went and Recorded the macro and performed the action. Other than putting the Path and filename explicitly in single quotes, the code was nearly the same. I replaced my variable FilenameStr in to the command and then it worked. The only other difference was that it split the command into two lines and appended them with _

I think this is a bug.

Answer 2

Try:

NewFN = "Users:gozmani:Desktop:IG Networks LTD:Inv" & Range("F4").Value & ".xlsx"

And, you probably need to prefix the name of your hard drive, probably Macintosh HD:Users:gozmani etc..