I tired to add a simple msgbox but got some kind of error, its not my code, but it stops where is red, and I add this line "msgbox "saved". What do I need to change? 
Private Sub CommandButtonSave_Click()
Dim Folder1 As String, Folder2 As String, fNAME As String
Dim OrigFolder As String
Application.DisplayAlerts = False
    fNAME = "\Q_" & Trim([customername])
    MakeFolders Folder1, Folder2            'this will bring back the correct folderpaths from the MakeFolders macro
    
    On Error Resume Next
    Stop                                       '<--------------IT STOPS RIGHT HERE
    OrigFolder = ThisWorkbook.Path
    ThisWorkbook.SaveAs Folder1 & Trim(fNAME) & ".xlsm", 52
    ThisWorkbook.SaveAs Folder2 & Trim(fNAME) & ".xlsm", 52
    On Error GoTo 0
    
    fNAME = Folder1 & Trim(fNAME) & Format(Now, "_dd-mm-yy") & ".pdf"
    ThisWorkbook.Sheets("Customer").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fNAME, Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    fNAME = "\Q_" & Trim([customername])
    fNAME = Folder2 & Trim(fNAME) & Format(Now, "_dd-mm-yy") & ".pdf"
    ThisWorkbook.Sheets("Customer").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fNAME, Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=False
        
    ThisWorkbook.Save
Application.DisplayAlerts = True
MsgBox "SAVED"  'THIS LINE ADDED

End Sub