Excelデーターのシートを取り出して個々のファイル保存する

【概要】複数のシートが入ったExcelデータがあります そのシート（多いので20シートほど）を、各シート毎にひとつのExcelデータにしてほしいです ファイル名は「シート名」をそのまま付けてほしいです いろんなバージョンのExcelで使用しますので、バージョンの限定は困ります シート名で、ファイル名に使えない文字があった場合は飛ばしてもらっても大丈夫です 元のファイル名のフォルダーを作って、その中に保存してほしいです 以上、思いつくままに書きましたので、ご質問があればなんなりと・・ 一応、サンプルを添付しておきます どうか、よろしくお願いします