Changing File Name

[New Starter]

Hi Guys,

I am new to VBA and Excel.

Suppose you have about 50 files in a folder e.g. "C:\My Documents\Forms" and names of the files are

AA1_AA1_M03 ECON Reporting.xls
AA2_AA2_M03 ECON Reporting.xls
AA3_AA3_M03 ECON Reporting.xls
AZ1_AZ1_M03 ECON Reporting.xls
CF9_BG1_M03 ECON Reporting.xls
DA1_JA5_Month_03 ECON Reporting.xls

I would like to have a macro which would reduce the name of the files to the first three letter only i.e. above names should be converted into

AA1.xls
AA2.xls
AA3.xls
AZ1.xls
CF9.xls
DA1.xls

Thanks