Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
With ActiveSheet
If Target.Column = 9 Then
erh = 11
Select Case Target.Value
Case 0
If Len(Target.Value) > 0 Then erh = True
Case 1
erh = False
End Select
If erh <> 11 Then .Cells(Target.Row, 1).EntireRow.Hidden = erh
End If
End With
End Sub