Private Sub UserForm_Initialize()
Dim cell As Range
With Me.ListBox1
.Clear
For Each cell In ActiveSheet.Range("B6:B27")
If Not cell.EntireRow.Hidden Then
.AddItem cell.Value
.List(.ListCount - 1, 1) = cell.Offset(0, 1)
.List(.ListCount - 1, 2) = cell.Offset(0, 2)
.List(.ListCount - 1, 3) = cell.Offset(0, 3)
.List(.ListCount - 1, 4) = cell.Offset(0, 4)
.List(.ListCount - 1, 5) = cell.Offset(0, 5)
End If
Next cell
End With
End Sub


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"enyaw" wrote in message
...
I have a listbox on a userform. It is populated using the rowsource in
the
listbox properties. Is there any way of hiding rows in the listbox that
are
hidden on the worksheet?