I can do it from a single sheet with many ranges using the following code
Range("A8:G19,A83:N96").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"c:\filename.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Could anyone point me in the right direction for ranges on differnt sheets.
Thanks