Option
Explicit
Private
Sub
ComboBox1_DropButtonClick()
Dim
objCell
As
Range, objRange
As
Range
Dim
avntArray()
As
Variant
Dim
ialngIndex
As
Long
Set
objRange = AutoFilter.Range.SpecialCells(Type:=xlCellTypeVisible)
ReDim
avntArray(objRange.Count - 1)
As
Variant
For
Each
objCell
In
objRange
avntArray(ialngIndex) = objCell.Value
ialngIndex = ialngIndex + 1
Next
ComboBox1.List() = avntArray()
Set
objRange =
Nothing
End
Sub