Sub a()
Dim i
For i = 6 To Sheets.Count
Sheets(i).Select False
Next
End Sub
Sub b()
Dim vRay, i
ReDim vRay(6 To Sheets.Count)
For i = 6 To Sheets.Count
vRay(i) = ThisWorkbook.Sheets(i).Name
Next
Sheets(vRay).Copy
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "C:\temp\test.pdf", xlQualityStandard
End Sub
Sub c()
Dim vRay, i
ReDim vRay(6 To Sheets.Count)
For i = 6 To Sheets.Count
vRay(i) = ThisWorkbook.Sheets(i).Name
Next
Sheets(vRay).Copy
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "C:\temp\test.pdf", xlQualityStandard
ActiveWorkbook.Close False
End Sub