excel pdf macro

[lafhunting]

I have excel 2007
I have a excel macro to create a PDF for all my worksheets but I just want to save certain sheets as PDf not all of them.(the first four worksheets I do not need as PDF) this is what I have

Sub CreatePDf()
For sh = 1 To sheets.count
sheets (sh).ExportAsFixedFormat Type:=xlTypePDF, filename:=
"C:\*****" & sheets (sh).Name & ".PDF",_
Quality:=xlQualityStandard, IncludeDocProperties:=True,_
IgnorePrintAreas:=False, openafterpublish:=false
next

End Sub

 

[wigi]

For sh = 5 To sheets.count

Can you please use

 tags in the future? Thanks.

 

[lafhunting]

For sh = 5 To sheets.count

Can you please use

 tags in the future? Thanks.[/QUOTE]
Yes I will..:)
Works just fine Thank you