type mismatch hatası alıyorum yardımcı olabilir mi

Private Sub UserForm_Initialize()
TeklifSayisiGoster
TeklifListele
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
End Sub
Sub TeklifSayisiGoster()
stBar.Panels(2).Text = lstTeklifler.ListItems.Count
End Sub
Sub TeklifListele()
Dim y As Long
Dim teklif As ListItems
lstTeklifler.ListItems.Clear
For y = 2 To 1000000
If Sheets("Teklif").Range("A" & y).Value = "" Then Exit For
Set teklif = lstTeklifler.ListItems.Add(Text:=Sheets("Teklif").Range("A" & y).Value)
teklif.SubItems(1) = Sheets("Teklif").Range("B" & y).Value
teklif.SubItems(2) = Sheets("Teklif").Range("C" & y).Value
teklif.SubItems(3) = Sheets("Teklif").Range("D" & y).Value
teklif.SubItems(4) = Sheets("Teklif").Range("E" & y).Value
teklif.SubItems(5) = Sheets("Teklif").Range("F" & y).Value
teklif.SubItems(6) = Sheets("Teklif").Range("G" & y).Value
teklif.SubItems(7) = Sheets("Teklif").Range("H" & y).Value
teklif.SubItems(8) = Sheets("Teklif").Range("I" & y).Value
teklif.SubItems(9) = Sheets("Teklif").Range("J" & y).Value
teklif.SubItems(10) = Sheets("Teklif").Range("K" & y).Value
teklif.SubItems(11) = Sheets("Teklif").Range("L" & y).Value
Next
TeklifSayisiGoster
End Sub

Teklif listesi açılmıyor ve intialize kısmında type mismatch hatası alıyorum yardımcı olabilir misiniz