Sheets("RD").Range("A1:V245").Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Left(nm, Len(nm) - 5) & " " & dt, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, _
OpenAfterPublish:=True