Sub sample()
Dim exPath As String
Dim ArrayShName() As String
Dim SName(10) As String
SName(0) = "Sheet1"
SName(1) = "Sheet3"
SName(2) = "Sheet4"
'動的配列を初期化
ReDim ArrayShName(0)
For i = 0 To 2
'配列の内容を保持したままシート名を配列に追加する
ReDim Preserve ArrayShName(i)
ArrayShName(i) = SName(i)
Next i
'出力ファイル名
exPath = ThisWorkbook.Path & "\test.pdf"
'//ワークシートをグループ化
Worksheets(ArrayShName).Select
'PDF出力
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=exPath
'//ワークシートのグループ化を解除
Worksheets("Sheet1").Select
End Sub