Excelのマクロで Sub 枚数指定コピー() Dim i As Integer Dim cnt As Inte…

Question

Excelのマクロで
Sub 枚数指定コピー()
Dim i As Integer
Dim cnt As Integer

cnt = Application.InputBox(Prompt:="枚数を入力", Title:="枚数指定", Type:=1)
For i = 1 To cnt

Worksheets("原本").Copy After:=Worksheets(i)

ActiveSheet.Name = "平成29年" & Worksheets.Count - 1 & "月"
Range("F2").Value = Worksheets.Count - 1
Next i
End Sub

という形を作りました。しかし、枚数を指定すると月数のみとなってしまい、1枚とすると必ず平成29年3月からになってしまいます。
その時開いている当月の名前に自動的にコピーをし、さらに当月が1枚で収まらない場合、同じ月数(2)見たく原本をコピーできるようにマクロ組むことはできますか、結構急いでいますが何卒ご教示くださいませ。

補足

それか、枚数を指定ではなく、作成したい月数をコピーという形にして、最初に作りたい月数を入力するとその名前になるという形は可能ですか。それで重複してしまう月がある場合は(2)という名前に自動で鳴るのが理想です。

Answer 1

前の質問が何の返信もなく解決済みになってしまいました。

年ですでが固定の"平成29年" はまずいので、今年という日付から取得するとかにしないと来年以降使えなくなります。

それから、F2セルには何を入れたいのでしょう。
Worksheets.Count - 1 とは、原本を除いて何番目かという意味ですか。

補足の事は一つのブックの中で年はまたがないという規則でシートが出来ているなら、可能だと思います。

どちらにしたいか決めて下さればコードを考えます。