エクセルでシートの検索ツールをＶＢＡで作成したい

エクセルでシートの検索方法を教えて欲しいんですが、
ボタンを押す→入力のコメント画面が出てくる→シート名入力する→
入力されたシートが選択される。→シート名ない場合はエラー

ＶＢＡのソースを教えて頂きたいです。
初心者なので宜しくお願いします。。

No.1 回答者： hana-hana3 回答日時： 2007/04/18 15:20

Sub test()

Dim name As String
Dim sht As Worksheet
Dim flg As Boolean
name = InputBox("シート名")
For Each sht In Worksheets
If sht.name = name Then
flg = True
sht.Activate
Exit For
End If
Next
If flg = False Then MsgBox "シート名が違います"
End Sub

この回答への補足

ソースありがとうございます！
一応出来たんですが、検索する時にシート名を全て入力しないと
エラーになってしまいます。

例えば
sheet3　があったとして、
「3」と入力すると出てくるようにしたいのですが。。。
すみませんが教えて下さい！！

補足日時：2007/04/19 09:53

この回答へのお礼

またよろしくお願いします☆

お礼日時：2007/04/19 11:38

No.2 回答者： hana-hana3 回答日時： 2007/04/19 10:31

＞「3」と入力すると出てくるようにしたいのですが。

。。

ＩＦ文を下記のように書き換えて見てください。

If InStr(sht.name, name) > 0 Then

この回答へのお礼

ありがとうございます！！出来ました☆
初めて質問したもので、しかも
VBA初心者なので分からなくって。。。
とても助かりました☆ありがとうございました！！

お礼日時：2007/04/19 11:38