「Excel VBA テキストボックスに入力した内容でシート内を検索する。」

Private Sub CommandButton1_Click()
    Dim F As Variant
    Set F = Range("A1").CurrentRegion.Find(What:=TextBox1.Value)
    If F Is Nothing Then
        MsgBox "みつかりません"
    Else
        F.Select
    End If
End Sub

検索してなかったときは、「みつかりません」と出すように。
検索して使うのが前提みたいな表の時は、Ctrl + fで検索するよりもいい場合もあると。