Fehler bei UF ListBox Column Eigenschaft

Private Sub ListBox1_befüllen()
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
With ListBox1
'      .Clear                           ' löschen ComboBox
.ColumnCount = 7                 ' drei Spalten
.ColumnWidths = "1,8 cm;1,9 cm;16 cm;1,8 cm;1,8 cm" ' Breite der Spalten
' .ListRows = 12                   ' angezeigte Zeilen
'.Height = 20                     ' Höhe der ComboBox
'.Font.Size = 8                  ' Schriftgröße
' .BackColor = RGB(204, 255, 204)  ' Hintergrundfarbe
End With
ListBox1.Column(0) = wks.Cells(ListBox2.ListIndex + 1, 3)
ListBox1.Column(1) = wks.Cells(ListBox2.ListIndex + 1, 27)
ListBox1.Column(2) = wks.Cells(ListBox2.ListIndex + 1, 28)
ListBox1.Column(3) = wks.Cells(ListBox2.ListIndex + 1, 106)
ListBox1.Column(4) = wks.Cells(ListBox2.ListIndex + 1, 105)
End Sub