Filter Code is really slow, please Help...

Hello,

And thank you in advance...

I have a small issue with my Filter vba code. What I am trying to do is compare one worksheet column with another worksheet column and if any of the 1st worksheet column values are not found in the 2nd worksheet column those rows in the 1st worksheet will be hidden.

Now I believe the coding works, but it is just to darn slow, and the screen flickers (Im using screenupdating.false as well) and it even goes black, not sure why? Any help would be appreciated.

***Correction: This code does not infact work, when it is ran it just hides all rows with values in them. So I am going to need some help here if anyone could spare some of their knowledge.

Thank You

My code:

<code>

Sub FilterSheet()
Dim x As Integer
x = 2
Application.ScreenUpdating = False
Do While Cells(x, 9) <> ""
If Worksheets("Sheet1").Cells(x, 9).Value = Worksheets("Sheet2").Cells(x, 6).Value Then
Else
Worksheets("Sheet1").Rows(x).Hidden = True
End If
x = x + 1
Loop
Application.ScreenUpdating = True
End Sub

<code>