Runtime 1004 Error SaveAs Workbook Failed

[AIM]

Hi,

I'm quite new in vba and I was hoping someone could help me.
I have the following code, that saves a copy of a sheet "Loading Form" using as a name a value in cell C7:

Sub SaveITWithNewName()
Dim NewFN As Variant

If Range("C36").Value <= 0.8 Then
MsgBox "Truck not full"
Else
ActiveSheet.Copy
NewFN = "Path to the folder" & Range("C7").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NextLoading
End If
End Sub

I keep having an error at line "ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook" although it has worked before and suddenly started with this error...

Can someone advise?
Thanks

[Paul_Hossler]

If (for example) C7 contains "BillSmith" then




NewFN = "Path to the folder" & Range("C7").Value & ".xlsx"


makes NewFN =
Path to the folderBillSmith.xlsx


But I suspect that you deleted the parameter name in bold below during editing




ActiveWorkbook.SaveAs FileName:=NewFN, FileFormat:=xlOpenXMLWorkbook

[AIM]

If (for example) C7 contains "BillSmith" then




NewFN = "Path to the folder" & Range("C7").Value & ".xlsx"



makes NewFN =
Path to the folderBillSmith.xlsx


But I suspect that you deleted the parameter name in bold below during editing




ActiveWorkbook.SaveAs FileName:=NewFN, FileFormat:=xlOpenXMLWorkbook




Hi Paul,

Thanks for the advise.

"makes NewFN =Path to the folderBillSmith.xlsx" it's indeed not what I need. This file is supposed to be a template for a user to fill in, and save a copy of it using as file name, the value the user inputs in cell C7.
I've add the parameter name but I still get the same error, which I assume comes from your explanation of the folder's path.

[Paul_Hossler]

Since most users can't type, or might have a hard time entering a correct folder name, maybe allowing them to pick their folder would work better



Option Explicit
Sub test()
MsgBox GetFolderFromUser
End Sub

'returns file name as string, vbnullstring if canceled
Function GetFolderFromUser() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path
.Title = "Select Folder"
If .Show = -1 Then
GetFolderFromUser = .SelectedItems(1)
Else
GetFolderFromUser = vbNullString
End If
End With
End Function