Create button to Save specific page ranges from each worksheet in the workbook

[projectatpel]

I have an excel workbook containing about 4 worksheets.
The second worksheet has all the inputs I give and the outputs that I require.
The fourth worksheet has graphs.
All the calculations happen on other worksheets
I need to create a command button, which when clicked saves a certain pages of each worksheet as a PDF file.
Say, I need the the 1^st page of Worksheet 1, 1^st page of Worksheet 2 and 1^st and 2^nd pages of Worksheet 4
(all pages laid-out as A4 using "Page layout > Size > A4 "and viewed as "View > Page Layout")
Is it possible to get a VB code to save those particular pages as a single PDF document.
Also the PDF document must derive its file name from two different cells in Worksheet 1

 

[projectatpel]

Same Qery is also posted at Create button to Save specific page ranges from each worksheet in the workbook

You may refer that forum for any solutions posted if any, before replying here

 

[projectatpel]

I tried a code which is as follows, but it doesn't seem to work.
If anyone could check the error

Sub Save()
'
' 
Dim fName As String, fPath As String
Dim part1 As String


part1 = Range("D5").Value
fPath = "D:\Test\"
fName = "part1_" & Format(Date, "dd-mmm-yyyy \at  hh:mm:ss AM/PM")


    Sheets(Array("asd", "Graphs")).Select
      Sheets("asd").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "fPath & fName.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=True, OpenAfterPublish:=True


    Sheets("asd").Select
End Sub