Sub SaveSheetsToPdf() Dim filename As String
filename = Range("A2") & Range("B2") & ".pdf"
Sheets("Sheet2").ExportAsFixedFormat Type:=xlTypePDF, _
filename:=ActiveWorkbook.Path & filename & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True 'False not visualizzation
End Sub