Hvorfor virker følgende ikke?

*** Der er ingen problemer med denne kode : ***

Private Sub cmdad_Click()
Dim rg As Range, i, j, player As String
player = Tad.Text
spiller.AddItem ([player])
spiller2.AddItem ([player])
Tad = Empty
Tad.SetFocus
End Sub

***Et lille bonusspørgsmål***
Hvordan får man VBA til at tælle antallet af objekter i en listbox?

Når du fjerne enkelte emner fra en listbox, så er det smartest at slette emnerne nedefra...
Hvis du vil slette nr 4 og nr 8... så sletter du nr 4 og så hedder nr 8 pludselig nr 7 og du får fejl på sletning af nr 8, hvis det f.eks. er sidste emne. Fik du denne sene time...

Tæl liste emner: ListBox1.ListCount

Tak for det, årsagen til at det ikke fungerede hos mig, var at jeg skrev navnene på de spillere jeg forsøgte at fjerne i stedet for deres indexnumre. Optællingen virker fint.