エクセルVBAで特定の文字列が見つかったらIF文以下を実行するには？

お世話になります。
エクセルVBAで、特定の１列を範囲指定して、範囲内のそれぞれのセルにある特定の文字列が見つかった場合にIF文以下の命令を実行するには、どのようにすればよろしいのでしょうか。それぞれの文字列の中の特定の文字列の位置は決まっていません。
よろしくお願いします。

No.1 回答者： maruru01 回答日時： 2004/03/11 15:47

こんにちは。

maruru01です。

InStr関数を使用すればいいのでは？

この回答へのお礼

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

お礼日時：2004/03/12 06:06

No.2 ベストアンサー 回答者： papayuka 回答日時： 2004/03/11 21:54

#1さんのご回答を例とすると、こんな感じでしょうか？

Sub Test()
Dim r As Range, s As String
s = Application.InputBox("検索語は？", "検索", Type:=2)
For Each r In Selection
　If InStr(1, r.Value, s, 1) > 0 Then
　　 MsgBox r.Address
　End If
Next r
End Sub

この回答へのお礼

早速の回答ありがとうございます。試してみます。

お礼日時：2004/03/12 06:09