Why does the first macro work but if you combine the first two lines to
shtAssum10.Range("B1:N35").Select - it doesn't?

Sub CreatePDFRates()
shtAssum10.Select
Range("B1:N35").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\Spipfile04\dowb1$\2008\annuity\Individual_Illus trator\" &
shtAssum.Range("I39") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub