エクセルマクロ シートの追加

質問

マクロでシートを追加し、シートの名前を変更したくて記録したところ、以下のコードになりました。

しかしながら、２度目に実行すると、sheet2が追加されsheet1が無いためエラーとなります。

２度目に実行してもsheet2のシート名を変更できるようにするには、どうすればよいですか？

Sheets.Add
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "処理結果"

回答No.1

ryoppemag · ベストアンサー

Sheet2も"処理結果"という同じ名前にしてしまうと結局エラーになってしまうのでSheet2以降もシート名を変更します。例えば時刻をつけるとすると、
Worksheets.Add(after:=Worksheets(Worksheets.Count)) _
.Name = "処理結果" & Format(Now(), "h時mm分ss秒")
で名前を付けたシートを追加できます。

お礼

回答ありがとうございます。
うまく行きました。

回答No.3

imogasi

１行で済みます。aaaXと言う名の３シート増やす例です。ご参考に。
Sub test04()
For i = 1 To 3
Sheets.Add.Name = "aaa" & i
Next i
End Sub

お礼

回答ありがとうございます。

回答No.2

papayuka

同じブック内でシート名は同じ名前を付けられないので、2度実行したら変わりません。

Sub aa()
Dim ws As Worksheet
　On Error Resume Next
　Set ws = Worksheets.Add _
　　　(after:=Worksheets(Worksheets.Count))
　ws.Name = "処理結果"
　'↓おまけ
　ws.Range("A1").Value = "処理結果シート作成に成功"
　ws.Range("C20").Activate
　'↑おまけ
End Sub

お礼

回答ありがとうございます。
もちろんOKでした。