Listbox.List hata veriyor.

[esnaf88]

Private Sub UserForm_Initialize()
ListeyiYenile
End Sub

Sub ListeyiYenile()
Dim wsFirma As Worksheet
Dim SonSatir As Long

Set wsFirma = ThisWorkbook.Sheets("Firmalar")
lstFirmalar.Clear

SonSatir = wsFirma.Cells(Rows.Count, 1).End(xlUp).Row
If SonSatir > 1 Then
lstFirmalar.List = wsFirma.Range("A2:A" & SonSatir).Value
End If
End Sub

Arkadaşlar merhaba.
Yukarıdaki Makroyu çalıştırdığımda eğer "Firmalar" sayfasında kayıtlı firma yoksa kayıt yapıyor, kaydı tamamlar tamamlamaz aşağıdaki resimde görülen hatayı veriyor.
Söz konusu hatayı nasıl çözebilirim?
Yardımcı olacak arkadaşlara teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Listaboxun ayarlarında geçersiz bir şey yapmışsınız.
Form üzerindeki Listbox u silin yerine yenisini ekleyip deneyin.
Yeni Listboxun adını "lstFirmalar " yapmayı unutmayın.

Eğer olmazsa dosyanızı ekleyin kontrol edelim.