I have the control working well:

ActiveWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=FilenameStr, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, _
To:=11, _
OpenAfterPublish:=False

What I need to do is instead of saving all 11 pages, I would like to save
1,2-4, and 7 for example. Is there any way to do this without creating
multiple PDFs?