FIND functionen I Excel VBA

Hej,

Er der en som kan se hvad jeg gør galt her siden FoundCell kun returner "Nothing"?

Dim tbl As ListObject
Dim FoundCell As Range
Dim LookupValue As String

LookupValue = "24166"

Set tbl = Sheets("datasheet").ListObjects("tbldata")

Set FoundCell = tbl.DataBodyRange.Columns(3).Find(LookupValue, Lookat:=xlWhole)