hi, i have the following macro but its not saving pdf and it just gives out error 400 when ever i try to run it, i think its the part where the pdf is but i dont know enough to know what it is (the xlsm part works) if someone can help me recode it to save the pdf regardless of Saveas or save or save it, to always save the pdf file please.
Sub saveclicksaveas()
'''''Making PDF File
Dim Folder1 As String, Folder2 As String, fNAME As String
Dim OrigFolder As String
Application.DisplayAlerts = False

    fNAME = "\Q_" & StrConv(Trim([CustomerName]), vbProperCase)
    fNAME = StrConv(fNAME, vbProperCase)
    MakeFolders Folder1, Folder2            'this will bring back the correct folderpaths from the MakeFolders macro
   
    OrigFolder = ThisWorkbook.path
    
   
    
    If Left(ThisWorkbook.Name, 5) = "QUOTE" Then '
   
   'Debug.Print (Folder1 & Trim(fNAME) & ".xlsm")
  
    ActiveWorkbook.SaveAs Folder1 & Trim(fNAME) & ".xlsm", 52
    ActiveWorkbook.SaveAs Folder2 & Trim(fNAME) & ".xlsm", 52
        
       
    Else
        ThisWorkbook.Save
        ThisWorkbook.SaveAs Folder1 & Trim(fNAME) & ".xlsm", 52
        ThisWorkbook.SaveAs Folder2 & Trim(fNAME) & ".xlsm", 52
    End If
    
  
    
    fNAME = Folder1 & Trim(fNAME) & Format(Now, "_yyyy-mm-dd") & ".pdf"
    ThisWorkbook.Sheets("Customer").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fNAME, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    fNAME = "\Q_" & Trim([CustomerName])
    fNAME = Folder2 & Trim(fNAME) & Format(Now, "_yyyy-mm-dd") & ".pdf"
    ThisWorkbook.Sheets("Customer").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fNAME, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
      
    ThisWorkbook.Save
Application.DisplayAlerts = True

End Sub