vert.zoeken met een named range en dan de named range langer maken

[littlepete]

hallo

via een listbox krijg ik na het tikken van een naam, een lijst met namen die de getikte string bevatten.
deze waarde wordt dan in een range, "invulnaam" ingevuld.
nu wil ik voor de overleden personen daar een kruisje achter zetten, gebaseerd op de kolom av waar een
"x" staat indien overleden...
de functie vert.zoeken lukt mij niet :

Private Sub ListBox1_Click()Dim zoekpersoon As String
Application.ScreenUpdating = False
zoekpersoon = UCase(ListBox1.Value)
' ga naar pagina invulfiche
    ActiveWindow.ScrollRow = Range("personen").Row
    if vert.zoeken(invulnaam;lijst!d2:av255;45;"x") = true then invulnaam = invulnaam + "+"
    Range("invulnaam").Value = zoekpersoon
    Application.ScreenUpdating = True
    fotokiezen
End Sub

tussen haakjes al dat gedoe met vba in t nederlands, formules in t engels (of omgekeerd); komma's of kommapunten... allemaal verschrikkelijk verwarrend ...
zoals steeds hopend op een snel antwoord... waarvoor ik u nu al dank
peter