ＥＸＣＥＬ；ＶＢＡマクロ：シート名変更

質問

アクティブシートの現在ついている名前をマクロの中で使用せずに、シート名をＡＢＣとかに変更するにはどのようにマクロ記述すればいいか。

回答No.3

sanakazu · ベストアンサー

Sub sample()
Const Name1 = "123"
Dim i, k As Integer
Dim Name2 As String
Dim nameBool As Boolean

nameBool = 0
i = ThisWorkbook.Worksheets.Count

For k = 1 To i
Name2 = ThisWorkbook.Worksheets(k).Name
If Name1 = Name2 Then
nameBool = 1
Exit For
End If
Next
If nameBool = 0 Then
ActiveSheet.Name = Name1
End If
End Sub

まだ締め切っておられないので、チェック機能を追加しました。"123"を変更してご使用ください。

お礼

申し分のない回答利用させていただきます。どうもありがとうございました。

回答No.2

imogasi

アクチブシートの場合＃１のご回答。アクチブでなくても
Sub test05()
Worksheets("Sheet2").Name = "BCD"
End Sub
のようにマクロのコードの中に、第２行目を入れれば、変わりますよ。

お礼

十分使えましたどうもありがとうございました。

補足

変えたいシートはその名前でマクロが作成されている処理のために
次次に違うものをもってきて、その固定の名前に変えていくことをしたいのです。

回答No.1

sanakazu

ActiveSheet.Name = "ABC" ←でダメですか？