Saving as pdf files from opening an excel files

Hi,

I currently have an excel 2003 document that I create multiple order files from opening a template and writing data to specific cell and then saving the file as the order number. But I would like to save the output files as pdf. Below is what I'm currently using:

      'Save the filename as order number
      sFilename = "C:\Documents and Settings\user\My Documents\Temp\Order-" & rng.Offset(-1).Value & ".xls" ' I need to save as .pdf  
      wb.Close SaveChanges:=True, Filename:=sFilename

Thanks for any help,

David