Create a PDF but only of the pages i choose

[tonywatsonhelp]

Hi Everyone,
I have a sheet called "Data" that I want to export as a PDF
however i want to be able to choose which pages i include?

there are 21 pages in total and the page set up is already done,
so what i was thinking is if i have a list of the pages in column AA range AA10:AA31
and in AB10:AB31 answer "Yes" or "No" if yes then include this sheet?

is it possible to do this?
if so please help.

thanks

Tony

 

[rpaulson]

untested:

Sub Macro1()

For r = 10 To 31

If Cells(r, "AB") = "Yes" Then

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Free\Desktop\Book" & r-9 & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=r - 9, to:=r - 9, _
        OpenAfterPublish:=False
       
End If
Next r
End Sub

hth,

Ross