Nice examples. Just thought I would mention that you can pick up & hide Column data by setting the Column Width to 0. You can also pull Worksheet data directly into a Variant array, so using your Code:
Code:
Private Sub UserForm_Initialize()
Dim lb As msforms.ListBox
' // alternative method to pick up Worksheet data
Dim ar As Variant
ar = Worksheets("Sheet1").Range("A2:C5").Cells
'Place the array in the listbox
Set lb = Me.ListBox1
With lb
.ColumnCount = 3
' // pick up & hide the first Column of data
.ColumnWidths = "0;80;100"
.List = ar
End With
End Sub
Cheers, Mark
Bookmarks