↓は実行できるけど、
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

↓はエラーにならね?
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath