Macro to hide rows

[eagerexcel]

I have created a workbook that I need a macro for
In sheet one I have inserted a "push button" that I'm assigning a macro to in sheet 3

All calculations and fields are already completed at this point. What I need is the system to jump to sheet 3 and hide all the rows that have a "No" value in column S

To explain more:
The columns A - R has information in it.
The deciding cell is the cell in column S. If the cell has a "No" in it I want the entire row to be hidden.

I have tried to figure it out by playing but have come up short

Please help

 

[VoG]

Try

Sub atest()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
With Sheets("Sheet3")
    LR = .Range("S" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        .Rows(i).Hidden = .Range("S" & i).Value = "No"
    Next i
End With
Application.ScreenUpdating = True
End Sub

 

[dave3009]

Something like

Dim lst As Long, i As Long
With Sheet3
    lst = .Range("S" & Rows.Count).End(xlUp).Row
    For i = lst To 2 Step -1
        With .Range("S" & i)
            .EntireRow.Hidden = .Value = "No"
        End With
    Next i
End With