Thanks... but where in the code do I put that?.... can you please use put that in the code I provided???

---------- Post added at 03:01 PM ---------- Previous post was at 02:54 PM ----------

Never mind I figured it out, this version works great! Thanks again!


Private Sub Worksheet_Activate()

    IF Sheets("S-57 (Special Req)").Range("J6").Value=0 Then Exit Sub

    Dim rRow             As Range
    Dim rRowRange        As Range
    Dim rCell            As Range
    Dim bHide            As Boolean
    
    ' change as you need
    Set rRowRange = Intersect(UsedRange, Range("B9:B50"))

    ActiveWindow.DisplayZeros = False
    Application.ScreenUpdating = False

    For Each rRow In rRowRange.Rows
        bHide = False
        For Each rCell In rRow.Cells

            If Len(rCell.Value) = 0 Then
                bHide = True
                Exit For
            End If
        Next rCell
        rRow.EntireRow.Hidden = bHide

    Next rRow

    Application.ScreenUpdating = True

End Sub