Excel hakutoiminto välilehden taulusta InputB:llä

Olen tekemässä hakutoimintoa listaan, jossa yli 2000 riviä, 5 saraketta. Haluaan saada hakutoiminnon Inbox Makron Inbox hakua toiminnolla. Mulla on koodi , jota työstän:

Sub tapahtumahaku()

Dim menotapahtuma As ListObject
Dim etsinta_alue As Range
Dim solu As Range
Dim riviosuma As Variant
Dim hakutieto As String

' Asetetaan tietokannaksi/tietoalueeksi Loki-välilehden kavijaloki -taulukko
>>>Set menotapahtuma = Sheets("Menotapahtumat").ListObjects("menolista")
{ HUOM! TÄSSÄ KOHDASSA HERJAA JOTAIN. MUTTA MITÄ?


' Asetetaan tietojen hakualueeksi menotapahtuma-taulukon eka sarake eli Päivä -sarake
Set etsinta_alue = menotapahtuma.ListColumns(1).Range

hakutieto = InputBox("Päivämäärä?", "Hae päivämäärällä")

'Käydään etsintä alueen solut läpi
For Each solu In etsinta_alue

'tutkikaan vastaako hakutieto solun sisältöä
If hakutieto = solu Then

' Selvitetään löydetyn solun rivinumero kavijaloki-taulukossa
valitturivi = solu.Row - 1

' Valitaaan rivi, josta etsittävä tieto löytyi
menotapahtuma.ListRows(valitturivi).Range.Select

End If
Next solu
End Sub