Your current change event code would help, but I suggest that first you limit the event's checking to only when your intended range changes. I gather your rows are all from 14 to 44?
something like this might work:
Private Sub Worksheet_Change(ByVal Target As Range)
dim ws1, ws2 as worksheet
set ws1 = worksheets("Sheet1")
set ws2 = worksheets("Sheet2")
If Not Intersect(Target, Range("A14:A44")) Is Nothing Then 'this checks if "Target" (the cell that changed) is in the range that should trigger code.
For i = 14 To 44
if ws1.range("A" & i).Value = yes then ws2.range("A" & i).EntireRow.Hidden = True
Next i
End If
End Sub
Bookmarks