Printing to PDF question

[Brad]

The below works (thanks to Ron De Bruin) - but is there a way to print a
range without making the sheet that it is in active?

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