Problem mit ListBox Daten einlesen

Private Sub UserForm_Initialize()
'VeListe öffnen, Daten in Listbox einlesen, VeListe close START
Dim lR%
Application.Workbooks.Open ("F:\daten\VeListe.xls")
With Workbooks("VeListe.xls")
.Sheets("mieterliste").Select
lR = Worksheets("mieterliste").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.RowSource = "mieterliste!a1:n" & lR
ListBox1.ListIndex = 0 'oder 1?
.Close (False) 'Schließen mit speichern, sonst .Close (False)
End With
'VeListe öffnen, Daten in Listbox einlesen, VeListe close ENDE
Sheets("leer").Select
Application.ScreenUpdating = True
End Sub