マクロ シート別に名前をつけて保存したい

質問

１つのブックにシートが複数あり、それぞれシート毎に名前をつけて保存したいです。
質問を検索しましたら似たようなマクロを見つけたのですが、例えば1.2.3・・・というシートがあった場合、エクセル１、エクセル２、というような共通の言葉をつけて保存したい場合の方法を教えて下さい。
たぶんですが・・・下記のどこかにエクセルという言葉をいれるとできますでしょうか？

Workbooks(2).SaveAs Filename:= _
SvPath & Workbooks(BookName).Sheets(SheetName).Name & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

よろしくお願い致します。

回答No.2

papayuka · ベストアンサー

全文が見えてませんが、

SvPath & Workbooks(BookName).Sheets(SheetName).Name & ".xls", FileFormat:=xlNormal, _

の部分を

SvPath & "エクセル" &Workbooks(BookName).Sheets(SheetName).Name & ".xls", FileFormat:=xlNormal, _

に修正してみたらどうでしょう？

お礼

& "エクセル" &と挿入箇所がわかり大変助かりました。
この方法でできました！！
感謝です、ありがとうございました！

回答No.1

Nayuta_X

補足要求です。

シート別に名前をつけて保存は、
方法1.
　　そのシートを新しい　Bookに移動する方法
方法2.
　　そのシートをコピーして新しい　Bookを作成方法
方法3.
　　上記1で元になる　Bookを残すか、否か
の、判断が、必要です。

あなたは、これらの内　どれを　選択するのでしょか?。

お礼

コピーして保存したいです。解決いたしました。
ありがとうございました。