InputBoxに入力した言葉をシート名にしたい！

エクセルでInputBoxに入力した言葉をシート名に反映させるVBAを教えてください。

また、入力したくない場合はESCを押すとその作業を飛ばすというものも組み込んでいただくとありがたいです。

よろしくお願いします。

No.1 ベストアンサー 回答者： 134 回答日時： 2006/08/23 19:16

アクティブなシートに名前をつける…ということでいいですか？

Sub test()

Dim MyName As String

MyName = InputBox("シート名を入力してください", "シート名入力")
If MyName = "" Then
End
Else
ActiveSheet.Name = MyName
End If
End Sub

という感じでいかがでしょうか

この回答へのお礼

出来ました！ありがとうございました。とても迅速な対応で感謝しております。

お礼日時：2006/08/24 08:04

No.2 回答者： NCU 回答日時： 2006/08/24 00:27

>エクセルでInputBoxに入力した言葉をシート名に反映させるVBAを教えてください。

>また、入力したくない場合はESCを押すとその作業を飛ばすというものも組み込んでいただくとありがたいです。

サンプルの作成依頼などは、質問者のスキルアップの芽を摘んでしまうことになります。
InputBox関数またはメソッドの使用例を参考に作ったがこれこれの問題があるので教えてほしい、という質問をして下さい。

この回答へのお礼

その通りです。ただどうしても急ぎで知りたい事情があり聞いてしまいました。
今後気をつけます・・・。

お礼日時：2006/08/24 08:03