Macro to create PDF of 4 sheets

[tonywatsonhelp]

Hi Everyone,
I just need a macro that can create a PDF of 4 sheets, everything is set up page areas etc so they just need to be created,

in this order,

sheet "Intro", "Help" , Data" and "Summary"
some are more than one page but the page sizes are al set.

I have this if it help this prints any one of the shets perfectly

Sub Create_PDFbasic()
Application.ScreenUpdating = False

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ActiveWorkbook.path & "\" & "Report - saved " & Format(Now, "dd-mmm-yyyy") & ".pdf", _
    OpenAfterPublish:=True
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Application.ScreenUpdating = True
End Sub

 

[DanteAmor]

How about:

Sub Create_PDFbasic()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Sheets(Array("Intro", "Help", "Data", "Summary")).Select
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ActiveWorkbook.Path & "\" & "Report - saved " & Format(Now, "dd-mmm-yyyy") & ".pdf", _
    OpenAfterPublish:=True
End Sub