メッセージボックスでシート名を変更するマクロ。

質問

教えて下さい。
シート名を変更するマクロを作りたいのですが、どうしたらいいですか？
作業中のシートでマクロを実行し、メッセージボックス（？）を表示させ、シート名を何にするか聞いて欲しいんですが、
これはできるでしょうか？？

以前に出ている質問でしたら申し訳有りません。
探しきれませんでした。。。

回答No.2

zap35 · ベストアンサー

＞メッセージボックス（？）
と書くところから推察するとＶＢＡはあまりお詳しくはないようですね。こんなマクロでもできますよ。

Sub Macro1()
　Dim wk
　wk = Application.InputBox("新しいシート名を入力してください", Type:=2)
　If wk <> False Then
　　　ActiveSheet.Name = wk
　End If
End Sub

お礼

ありがとうございます。期待通りというか、以上で感動しました！
お察しの通り超初心者です（汗）
この感動を機にぜひ勉強していきたいと思います。

回答No.1

merlionXX

インプットボックスですね？

Sub test01()
Dim sn As String
sn = InputBox("シート名は何にするの？", "（＾∇＾）？")
ActiveSheet.Name = sn
End Sub

ではいかがですか？

お礼

インプットボックスっていうんですね！！
勉強します！
とってもとってもすっきりしました！
しかも可愛いし、使えますね♪
ありがとうございました。