Sub CreatePDF()
Dim fName As String, fPath As String
fPath = "C:\Test\Folder\SubFolder"
fName = Sheets("Home").Range("A1").Value & " " & Format(Date, "dd-mm-yyyy")
fPath = fPath & "\" & fName & ".pdf"
ThisWorkbook.Sheets(Array("1", "2", "3", "4")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ThisWorkbook.Sheets("Home").Select
End Sub