Hi David. If U want U could just manipulate the file string name. Maybe...
Name strFolder & strFile As strFolder & "" &  LEFT(strFile,LEN(strFile)-14) & ".pdf"
Dave