The below works but I have two questions.

Question 1. How do I change this to access the sheets name?
Question 2. Can this code be condensed and still provide the same result?

Using Excel 2007....

Sub Updateforms()
Sheets(Array("PageFirst", "AAlt", "PageLast")).Select
Sheets("PageFirst").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"S:\PUBLIC\FundPerf\Performance flier\AA0508.pdf",
Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False,
OpenAfterPublish:=False
End Sub


--
Wag more, bark less