Invalid use of property - excel VBA

[Mahmoud Sayed]

Sub listsource()
Dim Lr As Integer
Lr = sheet2.Range("B1000") .End(x1Up).Row
UserForm1.Listbox1.ColumnCount = 8
UserForm1.Listbox1.ColumnWidth = "120,80,80,80,90,70,65,70"

UserForm1.Listbox1.list -sheet2.Range("B2:I" & Lr).value

End Sub

 

[HaHoBe]

Hi,

it´s not x1up but xlup, there´s an s missing at ColumnWidths, and I would usually run this as the UserForm_Initialize-Event.

Ciao,
Holger

 

[RoryA]

This line:

UserForm1.Listbox1.list -sheet2.Range("B2:I" & Lr).value

should be:

UserForm1.Listbox1.list = sheet2.Range("B2:I" & Lr).value