|
テキストボックスに入力した内容をA列の中から検索し、
検索結果にアクティブセルが来るように下記のVBAを作成しましたが、
「実行時エラー"91" オブジェクト変数 with ブロック変数が設定されていません」
というエラーが出てしまいます。
VBAの初心者のため、どの様に処理したらよいのか分かりません。
(ちなみに、ユーザーフォームではなく、 シート上にテキストボックスとコマンドボタンを設定しています)
どなかたか分かる方がいらっしゃいましたら、お願いします。
Private Sub kensaku_Click()
Dim W As String
W = TextBox1
Range("A:A").Select
Selection.Find(What:="W", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate
End Sub
|
|