Option Explicit
Sub Test()
Dim vnaSheets As Variant
Dim strFilename As String
Dim i As Long
strFilename = "X:\MyFolder\MySubFolder\MyFilename"
ReDim vnaSheets(1 To ThisWorkbook.Worksheets.Count)
For i = 1 To ThisWorkbook.Worksheets.Count
vnaSheets(i) = ThisWorkbook.Worksheets(i).Name
Next
Sheets(vnaSheets).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFilename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub