ワークシート内を検索

いつもお世話になっております
下記のコード
は以前教え頂きましたコードです。
これを
ワークシート内を検索するには
どうしたよろしいでしょうか
わかる方おしえてくれませんでしょうか

Private Sub CommandButton1_Click()
　　Dim lastrow As Long
　　Dim actrow As Long, actcol As Long
　　Dim i As Long
　　actcol = Selection.Column
　　actrow = Selection.Row
　　lastrow = Cells(Rows.Count, actcol).End(xlUp).Row
　　For i = actrow + 1 To lastrow
　　　　If Cells(i, actcol) Like "*" & TextBox1 & "*" Then
　　　　　　Cells(i, actcol).Select
　　　　　　Exit For
　　　　End If
　　Next
End Sub

質問者からの補足コメント

• 

  いつもありがとうございます。
  質問の仕方がわるくて　申し訳ございません
  
  例えば
  シート名
  シート1　シート2　シート3
  があり、
  その中で　田のつく文字を検索していきたのです。
  一つ見つかれば、さらにコマンドボタンを押すと
  次の田　を選択したのですが
  
  わたしが　さきにつけたコードは　一つの
  シートのみの検索です。
  
  よろしくお願いいたします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/12/20 08:09

• 

  下記のコードはエラーになりますが
  なりますが　　どこをなえしたらよいのか
  Dim la As Long
  Dim cr As Long
  Dim i As Long
  
  cr = Selection.row
  aa = Array("台帳", "Sheet5")
  For Each ws In Worksheets
  With Worksheets(aa)
  For i = cr + 1 To Cells(Rows.Count, 2).End(xlUp).row
  If Cells(i, 2) Like "*" & TextBox1 & "*" Then
  Cells(i, 2).Select
  
  End If
  Next
  End With
  Next

    補足日時：2022/12/20 08:30

• 添付ファイルのように　検索場所をプック全体にして
  ひとつひとつ　検索していきたのです。

  
    補足日時：2022/12/20 08:47

• 

  マクロで記録すると Cells.FindNext(After:=ActiveCell).Activate
  なにか　うまく　いかないですかね

    補足日時：2022/12/20 08:49

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/12/20 00:08

Set Rng = Cells.Find(what:="*" & TextBox1.Value & "*", LookAt:=xlWhole)

If Not Rng Is Nothing Then Rng.Select