vba - ワークシートを PDF として保存

Question

複数のワークシートを PDF として保存する際に問題が発生しています。この Web サイト (および他の Web サイト) を調べたところ、私が使用しているものと同様のコードが見つかりました。ただし、複数のシートを .pdf に保存するとhttp://www.vbaexpress.com/kb/getarticle.php?kb_id=160を組み合わせたものにより似るように変更したコード。

しかし、最後の行「424: Object Required」でエラーが発生しています。あなたが私を正しい方向に導くことができれば、それは大歓迎です！

Sub SaveAs()

Dim Fname As String
Dim Fpath As String

    Fname = Sheets("Sheet1").Range("FT5").Text 'The Cell I want to use as my file name
    Fpath = "C:" 'my location

    ThisWorkbook.Sheets(Array("Sheet 1", "Sheet 2")).Select 'My selected tabs

    ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, _
        FileName:=Fpath & "\" & Fname & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True 'My issue is with this line....
End Sub