Dropdown liste der viser et navn, men indsætter et tal

Jeg bruger Excel 2010.

Ark1 indholder en konteringsliste, hvor der i kolonne C skal vælges et kontonummer fra en liste.

Ark2 indholder 3 kolonner:
A = Konto Navn
B = Konto nummer
C = en sammenkædning af A+B med et mellemrum og 2 streger
(Fx: A = Tilmeldinger, B = 1010, C = Tilmeldinger -- 1010)

Ark2 kolonne c cellerne er blevet navngivet "VisNrogNavn" for nemmere reference.

Ark 1, kolonne C er alle blevet sat til at skulle datavalidere ud fra listen "VisNrogNavn" - dermed kan jeg nu vælge fra Ark2, kolonne C.

Men det som egentlig skal ske, er at når jeg vælger noget i dropdownlisten, så skal den erstatte det med hvad der står i Ark2, kolonne A - tilsvarende linje som mit valg altså.

Fx. Valgt "Tilmeldinger -- 1010", men skriver i feltet "1010" på Ark1, kolonne C.



Fandt denne VBA kode, men kan ikke få den til at virke:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then GoTo exitHandler

If Target.Column = 2 Then
    If Target.Value = "" Then GoTo exitHandler
    Application.EnableEvents = False
    Target.Value = Worksheets("Ark2").Range("A1") _
        .Offset(Application.WorksheetFunction _
        .Match(Target.Value, Worksheets("Ark2").Range("VisNrogNavn"), 0), 0)
End If

exitHandler:
    Application.EnableEvents = True
    Exit Sub

End Sub