Split excel file in multiple workbooks and save in multiple folders of same name : To make the situation easily understandable I am taking example.

I have a excel files with following worksheets in it.
City1
City2
City3
City4
City5      and so on till 47 sheets

The file destination is "C:\Users\Dell\Desktop\CityData\"

I want a VB code which could split file into individual sheets and place them in the folders of same names as the name of sheets (The folders do not exist and i want that code create the folders automatically) (The folders should be created as subfolders of the above destination folder)  
