Indsæt valgt navn fra listebox i active celle

Prøv lige det her

ActiveCell = ListBox1.Text

Jeg kan ikke få din ver. til at virke Bak men mange tak.
Men jeg har fundet en løsning på det jeg har lavet
Indputområde------------ Medarbejder!A1:A100
Kæde til makering------- D1
og i E1 =INDEKS(Medarbejder!A1:A200;D1)

'********** Makro til er **********
Sub Listebox()
    [E1].Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub
Spørgsmål er lukket

Lukket