シート名に自動で年月をつけたい！

質問

VBA初心者です。
「新規ページ作成」のマクロを作りました。

「H23.3」のシートの上で実行すると、新規ページを挿入し、
雛形というシートにある表をコピーするところまではできました。

そこに、シート名に自動で翌月（この場合は「H24.4」）をつけるにはどうすれば良いでしょうか？

不都合であれば、表記は「平成●年●月」等でも構いません。
また、「H24.4」で実行したら「H24.5」・・・・としていきたいです。

現在のところまでは下記のとおりです。

Sub 新規ページ作成()
'
' 新規ページ作成 Macro
'

'
Sheets("Ｈ24.3").Select
Sheets.Add
Sheets("Sheet3").Select
Sheets("Sheet3").Move Before:=Sheets(5)
Sheets("雛形").Select
Cells.Select
Selection.Copy
Sheets("Sheet3").Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub

質問の仕方に不備等があればご指摘下さい。
回答と併せてよろしくお願いします。

回答No.1

nicotinism · ベストアンサー

何となくですが、シート名にピリオド（ドット）が含まれるのは
誤動作の元になりかねないような気がします。
以下は仮定のもとに。
『雛形』シートが一番左に位置していて
その右側に古い順でシートが並ぶ、（一番右側が最新のシート）
『雛形』シートの右隣りには、『H24_03』シートが既に存在する

Sub MacroX()
　　Dim tmpSheetName As String

　　tmpSheetName = Sheets(Sheets.Count).Name
　　tmpSheetName = DateAdd("m", 1, Replace(tmpSheetName, "_", "/"))
　　tmpSheetName = Format(tmpSheetName, "ge_mm")
　　Sheets("雛形").Copy After:=Sheets(Sheets.Count)
　　'『雛形』シートが重いシートなら此処で何かの『待ち処理』が必要かも？
　　Sheets(Sheets.Count).Name = tmpSheetName
End Sub

以上ご参考まで。

>質問の仕方に不備等
OSやExcelのバージョンは必ず明記するようにした方が『吉』だと思います。
バージョンによって回答が異なる場合もあります。

お礼

早速の回答をありがとうございます！！

ご推測のとおりの配置です！

回答を拝見して、指示内容のしくみが少しわかってきました。
早速試してみたいと思います。

そして、質問の仕方へのご指摘もありがとうございます。
今後はバージョンの記載を忘れずにしていきます。

ちなみにWindows VistaでExcel2007です。
本当にありがとうございました。