Sub Test()
Dim snArray, i As Integer, k As Integer
ReDim snArray(1 To Sheets.Count)
For i = 1 To Sheets.Count
With ThisWorkbook.Sheets(i)
If .Name <> "Data" And .Name <> "Template" Then
k = k + 1
snArray(k) = .Name
End If
End With
Next i
ReDim Preserve snArray(1 To k)
PrintToPDF snArray, ThisWorkbook.Path & "\Output.pdf"
End Sub
Sub PrintToPDF(arr, sFileName As String, Optional vQuality = xlQualityStandard, Optional vIncDocProperties = True, Optional vIgnorePrintAreas = False, Optional vOpenAferPublish = False)
ThisWorkbook.Sheets(arr).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=sFileName, Quality:=vQuality, IncludeDocProperties:=vIncDocProperties, IgnorePrintAreas:=vIgnorePrintAreas, OpenAfterPublish:=vOpenAferPublish
ActiveSheet.Select
End Sub