easy question driving me mad

[plost33]

I have the following lines of code all it is suppost to do hide the rows where the value in range(b4:B49) are blank/empty. but it is not working.


For lngRow = 4 To 49 'Rows 4 thru 49
With Sht
For Col = 2 To 2 'Column B
If .Cells(lngRow, Col) <> 0 Then Exit For
If Col = 2 Then .Rows(lngRow).Hidden = True

 

[Michael M]

Hi Plost
Try this

Sub hidrow()
Dim r As Long
Application.ScreenUpdating = False
For r = 4 To 49 Step 1 ' HIDES ROWS WITH NOTHING IN "B"
    If Range("B" & r).Value = "" Then
        Rows(r).EntireRow.Hidden = True
    End If
Next r
End Sub

Regards
Michael M