Macro to save all worksheets as seperate workbooks with a specific name

[Gaura215]

Hi All Gurus

I have a small requirement, which is definately something I am unable to fix myself.

I have a workbook, with several worksheets. i want a macro which saves all worksheets of my workbook as a seperate workbook. While saving it, I want the macro to name the workbook as existing worksheet name & Format(Now-30,"mmyyyy") and change the worksheet name in that new workbook as data.

For example in my existing workbook, there are worksheets with the name of A, B, C and so on. I want this macro to make seperate workbooks, where new workbook name will be A-022015, and the worksheet name which goes in there will be renamed as Data.

Please help me. All help are much appereciated.

Thanks in advance.

Regards
Gaurav