this would be better;


Code:
--------------------

Private Sub ComboBox_Change()

Application.ScreenUpdating = False

'Hide All Rows
Rows("6:12").Select
Selection.EntireRow.Hidden = True

'Unhide Rows that match ComboBox value
i = 3
Do
Cells(i, 1).Select
If ActiveCell.Value = ComboBox.Value Then
Rows(i).Select
Selection.EntireRow.Hidden = False
End If
i = i + 1
Loop Until Cells(i, 1).Value = ""


Application.ScreenUpdating = True

End Sub

--------------------


--
gti_jobert
------------------------------------------------------------------------
gti_jobert's Profile: http://www.excelforum.com/member.php...o&userid=30634
View this thread: http://www.excelforum.com/showthread...hreadid=545416