シートをコピーして名前を変更するExcelマクロ:エクセルマクロ・Excel VBAの使い方/Sheets・Worksheet

既存のワークシートをコピーして、名前を変更するマクロというのは実務でニーズがあります。 例えば、「2014年04月」という名前の交通費精算書のようなワークシートがあったときに、月初めに「2014年04月」シートをコピーして名前を「2014年05月」に変更して、入力されていた4月分のデータを削除するといった作業をマクロにしておくというのはよく行われていることでしょう。 このとき、シート名を変更するところでエラーになってしまうことがあります。 先の例なら、既に「2014年05月」という名前のシートが存在しているのに、コピーしたシート名を「2014年05月」に変更しようとしたときです。 Sub 名前変更でエラーが出ないようにアクティブシートをコピーする() Dim sh_name As String Dim n As Long sh_name = Format(Date, "yyyy年mm月")