Hide/Unhide rows based on cell value (result of formula)

Originally Posted by wallyeye

A bit of VBA. Go to the VBA IDE (alt-F11), and paste this code in the worksheet module you want to hide/unhide on:

Public Sub Worksheet_Change(ByVal Target As Excel.Range)

    If Not Intersect(Target, [G16]) Is Nothing Then
        Application.EnableEvents = False
        Range("16:17").EntireRow.Hidden = [G16].Value = 0
        Range("36:37").EntireRow.Hidden = [G16].Value = 0
        Application.EnableEvents = True
    End If

End Sub

You might have to go to the immediate window (ctrl-g), and enable events for this to work. Just type in:

application.enableevents = true

and press enter within the immediate window.

Thank you, I think this helps; can you tell me what the additional code is so that the rows will unhide when the value is a 1 and hide again when the value is a 0? Needs to be able to "toggle" back and forth based on the value in G16, which contains a formula. Thanks again for any help.