VBA Save as giving error

[ExcelNoob222]

Hi all,

I have the below VBA code to save a file but I get a "Run-Time error '1004': Method 'SaveAs' of object '_workbook' failed.

It then highlights this row: ActiveWorkbook.SaveAs filename:=Path & filename & " Template.xlsx", FileFormat:=51

 ET.Activate
    Dim Path As String
    Dim filename As String
    Path = "C:\New"
    filename = Range("C8")
    ActiveWorkbook.SaveAs filename:=Path & filename & " Template.xlsx", FileFormat:=51
    ActiveWorkbook.Close False

I cant seem to get this fixed. Any ideas?

 

[Fluff]

What is in C8?

 

[Joe4]

What is in cell C8?

In these cases, it is often helpful to return what you are building to a MsgBox, so you can see exactly what it is you are trying to save, i.e.

 ET.Activate
    Dim Path As String
    Dim filename As String
    Path = "C:\New"
    filename = Range("C8")
    MsgBox Path & filename & " Template.xlsx"
    ActiveWorkbook.SaveAs filename:=Path & filename & " Template.xlsx", FileFormat:=51
    ActiveWorkbook.Close False

Often times when you see it, the issue is obvious (missing directory slashes, using invalid characters in file name, like date slashes, etc).

 

[ExcelNoob222]

What is in cell C8?

In these cases, it is often helpful to return what you are building to a MsgBox, so you can see exactly what it is you are trying to save, i.e.

 ET.Activate
    Dim Path As String
    Dim filename As String
    Path = "C:\New"
    filename = Range("C8")
    MsgBox Path & filename & " Template.xlsx"
    ActiveWorkbook.SaveAs filename:=Path & filename & " Template.xlsx", FileFormat:=51
    ActiveWorkbook.Close False

Often times when you see it, the issue is obvious (missing directory slashes, using invalid characters in file name, like date slashes, etc).

Ahhh that is a great idea. Had an "illegal" character in the cell. Thank you!

 

[Joe4]

You are welcome.
Glad we were able to help.

 

[ExcelNoob222]

What is in C8?

Got it, had an illegal character in the cell!