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