pole listy, aby wybrać nazwę lub usługę, nie kopiuje wartości

robię organigram w Excelu. arkusz jest podzielony na strony po 70 wierszy. na pierwszej „stronie” można wpisać nazwę lub usługę, a odpowiednie miejsce na liście pod komórką, która ma zostać wypełniona, pokazuje wszystkie nazwy zgodnie z tym, co zostało wpisane. z jakiegoś powodu coś jest nie tak w części zdarzenia wymiany arkuszy:

gdzie popełniłem błąd ? dzięki, Pete z Belgii

oto co mam:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If LCase(Sh.Name) = "seniorama" Then
If Not Intersect(Target, Sheets("seniorama").Range("vrwnaam")) Is Nothing
Then
Sheets("lijst").Range("filterlijstkeuze").Value =
Sheets("seniorama").Range("vrwnaam").Value
End If
If Not Intersect(Target, Sheets("seniorama").Range("dienstnaam")) Is
Nothing Then
Sheets("diensten").Range("dienstenlijstkeuze").Value =
Sheets("seniorama").Range("dienstnaam").Value
    End If
End If
End Sub

Private Sub ListBox1_Click()
Dim zoekpersoon As String
Application.ScreenUpdating = False
zoekpersoon = UCase(ListBox1.Value)
' ga naar pagina invulfiche
ActiveWindow.ScrollRow = Range("personen").Row
Range("invulnaam").Value = zoekpersoon
Application.ScreenUpdating = True
fotokiezen
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("seniorama").Select
If Not Intersect(Target, Range("invulnaam")) Is Nothing Then ' als op fiche
naam ingevuld dan foto
fotokiezen
End If
If Not Intersect(Target, Range("vrwnaam")) Is Nothing Then ' oplichting
selectie om te tikken
Range("vrwnaam").Interior.ColorIndex = 6
Range("dienstnaam").Interior.ColorIndex = 16
End If
If Not Intersect(Target, Range("dienstnaam")) Is Nothing Then
Range("dienstnaam").Interior.ColorIndex = 6
Range("vrwnaam").Interior.ColorIndex = 16
End If