Spencer Hutton:


Private Sub UserForm_Initialize()
With Worksheets(1)
Set UserRange = .Range("A2:A" & .Range("A65536").End(xlUp).Row). _
SpecialCells(xlCellTypeVisible)
For Each rng In UserRange
Me.ComboBox1.AddItem rng.Value
Next
End With
End Sub

--

http://www.vba.com.tw/plog/


"Spencer Hutton" wrote:

is there a way to add filtered items to a list box. for example, in column
A, add the visible items in the cells to the list box after the range is
filtered.