saving several worksheets in single workbook in several folders

there are several worksheets in a excel workbook. named as america, england, canada, india, china etc.and there are folders named as above excel sheet names in D:\New folder directory.

how to write a macro to save the seperate excel worksheets in respective folders?

i.e - worksheet named as "america" need to be saved in D:\New folder\america folder and so on.

folders are
D:\New folder\canada
D:\New folder\america
D:\New folder\england
D:\New folder\india
D:\New folder\china

can anyone help me to do this?

????????????

?????????????