Error populating a list box

  • Thread starter Thread starter PA
  • Start date Start date
P

PA

Hi,
I am running the code below to populate a list box and I suddenly I start getting the error. This same code used to work and I the error is in the line ".ListIndex = 3" (regardless the value, the list box has 10 items). If I delete this line, everything works fine.

Any ideas?

Thanks in advance.

---------------------------
Microsoft Visual Basic
---------------------------
Run-time error '91':

Object variable or With block variable not set
---------------------------
OK Help
---------------------------



Private Sub UserForm_Initialize()
Dim lbtarget As MSForms.ListBox
Dim ws As Worksheet
Dim rngSource As Range
Dim count As Integer
Set ws = ActiveWorkbook.Sheets("Utilizadores")
count = Application.count(Range(ws.Cells(2, 1), ws.Cells(200, 1)))
Set rngSource = Range(ws.Cells(2, 1), ws.Cells(count + 1, 2))
Set lbtarget = Me.listbox1
With Me.listbox1
.Clear
.ColumnCount = 2
.ColumnWidths = "20;280"
.List = rngSource.Cells.Value
.ListIndex = 3
End With
End Sub
 
Back
Top