Speed up a simple code.

[eduzs]

I have this code, but I think it's a bit slow, is there another approach to do the same thing quickly?

Sub Filtrar()

    Application.ScreenUpdating = False
    For x = 2 To 201
        If Cells(x, 8).Value = "" Then Cells(x, 8).EntireRow.Hidden = True
    Next x
    Application.ScreenUpdating = True

End Sub

Thanks in advance

 

[mrhstn]

Try this

Range("H2:H201").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

 

[Vbagreenhorn1]

Try this

Range("H2:H201").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

This code cant deal with empty cells at the and of the array!