Returner rækkenummer fra valg i listbox

Hvad med noget i retning af
function FindValue(val)
Dim found As Integer
    Worksheets(2).Range("a1").Select
    Worksheets(2).Range("A:A").Cells.Find(What:=val, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    If Selection.Row > 1 Then
          FindVal= Selection.Row
    else
        Findval = -1
    end if

End function


Kaldes med din værdi som argument og returnerer rækken eller -1 hvis ikke fundet. Forudsætter, at a1 ikke indeholder data (gør check for "ikke fundet" nemmere)

stefanfuglsang--> Jeg kan ikke helt få din funktion til at virke. Jeg havde selv forestillet mig, at det skulle laves i en makro som var tilføjet mit kontrol element. Så når man ændrede værdien i listboksen, så fandt den det nye rækkenummer til variablen.

Lukker spørgsmålet