| 
    
     |  | テキストボックスに入力した内容を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
 
 
 |  |