Excel VBAについて質問です。 やりたいこと シートをコピーして、シート名を変更する直前までの

Excel VBAについて質問です。

やりたいこと
シートをコピーして、シート名を変更する直前までのショートカットを作りたいです。

分からないとこ
変数の使い方が分からず、今のプログラムでは1回コピーを作り名前を変えた後、もう一度コピーを作ろうとすると1回目のコピーシートの名前を変更しようしてしまいます。
これを2回目は2コ目のコピーシート名、3回目は3回目のコピーシート名を編集するにはどういうプログラムを書けばいいのでしょうか。

プログラムに触れたのが今回初なのでちんぷんかんぷんです！

No.1 回答者： fujillin 回答日時： 2021/03/11 12:28

こんにちは

シートのコピーは「どのシートを」、「どこへ」コピーするのかわからないと具体的なコードにはなりにくいです。
いずれにしろ、Copyメソッドでコピーした場合、新規のシートがアクティブになりますので、直後にActiveSheetを参照すれば、そのシートを取得できます。

例えば、シート名"hoge"のシートをブックの最後にコピーして、名前を変更するなら、

　Worksheets("hoge").Copy after:=Worksheets(Worksheets.Count)
　ActiveSheet.Name = "fugafuga"

のような手順で可能です。

No.2 回答者： satoumasaru 回答日時： 2021/03/11 12:40

そのプログラムをここにコピペされた方がよいですよ。

その方が具体的なアドバイスを受けられます。

No.3 回答者： めぐみん_ 回答日時： 2021/03/11 19:12

No.1様のコードに

http://officetanaka.net/excel/vba/tips/tips37.htm

このようなものがあれば良いのでしょうか？