Macro to hide/unhide rows based on cell value

[PuntingJawa]

I'm looking for a macro to hide and unhide rows in two specific ranges. If the value in each of the following ranges is blank, I would like it to hide that whole row. I've seen several macro's function automatically, but I plan to use a button. I've tried several variations, but they have not functioned well.
C21:C55 and C60:C94

 

[Joe4]

You cannot imbed procedures (macros) inside other procedures.
However, you can call them. So you can keep your original code, and then just add this one:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range

'   See if an update is made to cell R18
    Set rng = Intersect(Target, Range("R18"))

'   If not, exit sub
    If rng Is Nothing Then Exit Sub

'   Call Hide Rows procedure
    Call MyHideRows

End Sub

Note: "Worksheet_Change" event procedures MUST be placed in the Sheet module of the sheet you want to run them against in order to run automatically.

 

[PuntingJawa]

Sweet! Thanks again. It works nicely and I can remove the button.
Before:

After