How to automatically create folders based on the file name and zip the folder

[ramya0313]

Hi I have a 20 Excel files in a folder
File name as follows

Chennai
Madurai
Delhi
Pune
Hyderabad
I need to create folders for all the excel individually..Excel name and folder name should be same and want to zip the individual folders automatically.i need to do this in vba