VBA to PDF all the Excel files within a folder and save them with the same Excel files names?

[henry fam]

Hi All:
I'm pretty new to VBA.
I have 30 different excel files under the same Folder G:\Functional Teams\Finance\2013\Consolidation & Reporting\
( examples of the files names are
Inventory.xls
zpl1.xls
zlge.xls .....
I would want to PDF all these excel files and save them under the same above said folder, and with the same names
, for example
inventory.pdf
zpl1.pdf
zlge.pdf .....
Our Company use "CutePDF Writer" in order to save a document as pdf file.
Can anyone help me with a code please?
I very much appreciate your help.
Thank you
Henry