Create folders for each spreadsheet - Macro?

I have a workbook which has approximately 10 worksheets with different names. I want to write a macro, which can create a folder, folder name to be the worksheet name, and save each worksheet as an individual workbook with a common name in those respective folders. I want these folders to be created in a consolidated folder on desktop. Please somone help. Revert me on g.khanna@accenture.com