Hide Row if cell doesn't have a value

[GuyGadois]

I have the following code which works if the cell doesn't have any value but doesn't work if the cell has a formula that produces no value. What I am looking for is a way to hide the row if the cell is empty or has a formula that produces no value. Is this possible?

Guy

Sub HideRows()
    Application.ScreenUpdating = False
    Dim s As String
    For i = 5 To Range("B4:B206").Count
        s = i & ":" & i
        If IsEmpty(Cells(i, 3).Value) Then
            Rows(s).Select
            Selection.EntireRow.Hidden = True
       End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[Fluff]

Try

Sub HideRows()
    Application.ScreenUpdating = False
    Dim i As Long
    For i = 5 To Range("B4:B206").Count
        If Len(Cells(i, 3)) = 0 Then
            Rows(i).Hidden = True
       End If
    Next
    Application.ScreenUpdating = True
End Sub