Dim Path As String
Dim FileName1 As String
Dim FileName2 As String

Path = "D:folder1folder2ProjectsThe FILEStheFILES"FileName1"

FileName1 = Range("B6")
FileName2 = Range("A1")

ActiveWorkbook.SaveAs Filename:=Path & FileName2 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

Dim Path As String
Dim FileName1 As String
Dim FileName2 As String

FileName1 = Range("B6").Value

FileName2 = Range("A1")
Path = "D:folder1folder2ProjectsThe FILEStheFILES" & FileName1 & ""

Dim Path As String
Dim FileName1 As String
Dim FileName2 As String

FileName1 = Range("B6")
FileName2 = Range("A1")

Path = "D:folder1folder2ProjectsThe FILEStheFILES" & FileName1 & ""

ActiveWorkbook.SaveAs Filename:=Path & FileName2 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

Str = "This string contains a "" character"