Macro is exporting entire workbook as PDF instead of selected sheets

[jondavis1987]

I am trying to export the sheet named A and the sheet named Sheet2. The below code is part of a big macro that i'm using. When i use the macro it exports the entire workbook as a pdf.

        fName = srcWB.Sheets("A").Range("A!F19").Value
        

Dim FolderPath As String

FolderPath = "C:\Users\jdavis\Dropbox\Quality Control\Asphalt\Asphalt Reports\"


       
    Sheets(Array("A", "Sheet2")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & fName, _
        openafterpublish:=True, ignoreprintareas:=False

    End With
   
       End If
       
End Sub

 

[jondavis1987]

I can't figure out why it's not working on these specific sheets. It works on the other two sheets in a different macro. Made me think something was off in the name so i triple checked that. I ended up just making the other sheets hidden early in the macro and then being visible after it exports as a PDF