Place a combo-box in the column and assign the source to th
ListFillRange. Then put the following code in it.


Private Sub ComboBox1_Change()

Cells.EntireRow.Hidden = False
Set rng = Range(Range("a2"), Range("a2").End(xlDown))

For Each cl In rng

If Trim(cl.Value) < Trim(ComboBox1.Value) Then
cl.EntireRow.Hidden = True
End If

Next

End Sub


- Manges

--
mangesh_yada
-----------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...fo&userid=1047
View this thread: http://www.excelforum.com/showthread.php?threadid=31925