Run time error 1004 and i cant figure out why??

[vmandonado]

hey everybody.
Okay so Im having issues with trying to save my invoice sheet as a new workbook. i have got it so i can change my invoice number since its just invoices. but when i try and run a macro that is supposed to save the sheet as a new workbook it comes up with runtime error 1004 and tells me to check a bunch of stuff and after going through it all i cant figure it out. please help me out.

p.s. this is the code im using and the bold part is what gets highlighted when i debug.

Sub SaveInvWithNewName()
    Dim NewFN As Variant
    Dim sfile As String
    ' Copy Invoice to a new workbook
    ActiveSheet.Copy
    NewFN = "C:\Users\Owner\Documents\roof_invoices\" & Range("A14").Value & ".xlsx"
    ActiveWorkbook.SaveAs NewFN, FileFormat:=xlExcel8
    ActiveWorkbook.Close
End Sub

[pareshj]

Hi,

Try this and hope this will help:

Sub save()
ActiveWorkbook.SaveAS Filename:=NewFN, FileFormat:= _
  xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False
End Sub

[Fotis1991]

pareshj

Your post does not comply with Rule 7 of our Forum RULES. Please do not ignore requests by Administrators, Moderators and senior forum members regarding forum rules.

If you are unclear about the request or instruction then send a private message to them asking for clarification.

All participants:
Please do not post a reply in a thread where a moderator has requested an action that has not yet been complied with e.g Title change or Code tags...etc. Thanks.

ALSO

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[vmandonado]

Yes that helped Thank you!!

[vmandonado]

I have changed the code

[HaHoBe]

Hi, vmandonado,

if you want to save in the format of xlsx (used from 2007 on) it would be

FileFormat:=51

or

FileFormat:=xlOpenXMLWorkbook

while on the other hand the constant xlExcel8 would require the extension of xls.

HTH,
Holger