Macro to Export from Excel to .pdf

Let's start with this.

Sub ExportPDF()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        FolderName = .SelectedItems(1)
    End With
    FolderName = FolderName & "\"
    FileFolderName = FolderName & "Export"
    Sheets("Sheet1").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=FileFolderName, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub