Office 2010: Dropdown aus anderer Arbeitsmappe per VBA

[prinzessin123]

Hallo
Ich bin leider vollkommener Neuling im Umgang mit VBA und bräuchte mal eure Hilfe
Also folgendes: In meiner einen Arbeitsmappe (Mappe 1) befindet sich eine Tabelle mit Textwerten. Die Spalte ist fest (Spalte C), jedoch kann sich die Anzahl der Zeilen verändern, wo die Liste steht.
Nun möchte ich in einer anderen Arbeitsmappe (Mappe 2) ein Dropdown-Feld anlegen, das auf diese Werte zugreift.
Ich habe versucht mit VBA selbst einen Code zu schreiben, jedoch wird bei der Dropdown-Auswahl immer nur #N/A angezeigt. Bitte helft mir

ich habe zuerst in Mappe 1 eine Formel eingefügt, die die Anzahl der Werte in der Liste ermittelt. Diese steht in Zelle D1.

Mein Code sieht so aus:

Sheets("Mappe 1").Activate
 Dim i As Long
 Dim j As Long
 i = 1
While Not (Cells(i, 3) > Cells("D1").Value)
   i = i + 1
Wend
   j = i + Range("D1").Value

Range(Cells(1, 3), Cells(j, 3)).Select
ActiveWorkbook.Names.Add Name:="Liste", RefersToR1C1:= _
"='Mappe 1'!R[1]C[3]:R[" & j & "]C[3]"

Sheets("Mappe 2").Activate
Cells(1, 1).Select
 With Selection.Validation
 .Delete
.Add Type:=x1ValidateList, AlertStyle:=x1ValidAlertStop, Operator:= _
 x1Between, Formula1:=Liste
 .IgnoreBlank = True
 .InCellDropdown = True
 .InputTitle = ""
 .ErrorTitle = ""
 .InputMessage = ""
 .ErrorMessage = ""
 .ShowInput = True
 .ShowError = True
End With

Da wo die Schrift rot ist, wird immer der Fehler angezeigt. Ich hoffe, ihr habt mein Problem verstanden und könnt mir weiterhelfen

Schon mal vielen Dank