try print them as a worksheet array
Worksheets(Array("Sheet1", "Sheet2")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fn2, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False