Private Sub/worksheet change/hide rows

[breynolds0431]

Hello:

The following code was working for me, but, for some reason, it has stopped.

Does anybody note any flaws?

 

[Joe4]

I can think of a few things that would prevent the code from running:

1. Macros/VBA are not enabled
2. You are trying to run it against a different sheet
3. Events have become disabled. You can re-enable them by running this bit of code:

Sub ReEnableEvents()
    Application.EnableEvents=True
End Sub

4. You changed how this code is to be triggered. What "action" is happening that you expect to trigger the code?