Ocultar / mostrar filas automáticamente 1 -100 según el valor de la celda en la primera columna

Tengo una hoja en la que tengo la primera celda A1 dado un número de 0 o 1 en función de la entrada de otra hoja dependiendo de una selección del usuario.

Si la celda A1 cambia a 0, toda la fila está oculta.

Estoy usando lo siguiente a continuación y funciona bien Auto / ocultar la fila.

Lo que estoy buscando hacer ahora es mostrar la fila si la misma celda cambia de 0 a 1.

¡Gracias por cualquier ayuda! Aquí está el archivo ... http://jmp.sh/89BVI0A

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A:A]) Is Nothing Then
        Target.Rows.Hidden = UCase(Target.Value) = "0"
    End If
End Sub

Puede encontrar una copia de la hoja de cálculo aquí .

Use este código en el Sheet2Módulo

Option Explicit

Private Sub Worksheet_Calculate()    'Sheet2 Module

    Const FC = "A"    'Filter Column

    Dim lr As Long, filterCol As Range

    lr = Me.Cells(Me.Rows.Count, FC).End(xlUp).Row      'Determine last cell in ColA

    Set filterCol = Me.Range(Me.Cells(1, FC), Me.Cells(lr, FC)) 'ColA "UsedRange"

    Application.EnableEvents = False
        filterCol.Formula = "=Sheet1!A1"                'Update all formulas
        filterCol.AutoFilter Field:=1, Criteria1:="1"   'Show only rows where ColA = 1
    Application.EnableEvents = True
End Sub

Esto capturará la interacción del usuario en Sheet1que actualiza las fórmulas enSheet2

Ocultará todas las filas con valor 0enSheet2.colA