Right click on the Sheet 2 tab and select VIEW CODE. In the right side window paste this macro :
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim C As Range For Each C In Range("E3:E101").Cells If C.Value <> "Yes" Then C.EntireRow.Hidden = True Else C.EntireRow.Hidden = False End If Next C Application.ScreenUpdating = True End Sub