vba to copy specific files extension to their respective folders

Hi All

I have on my desktop folder named tools in which there are mixed files of doc ,xlsm,xls,xlsx,jpeg,pdf,csv.

vba code to copy specific files extension to their respective folders on the desktop all *.xlsm will be paste to AAA folder, xls will paste to BBB folder, xlsx will paste to CCC folder,jpeg will paster to DDD folder, pdf will paste to EEE folder and csv will paste to fff folder.

thanks if anyone can assist

What code have you tried so far ?

googling indeed , I did not found similar examples

Paste the following macro to a Routine Module :

Please Login or Register  to view this content.

thank you for help

You are welcome.