Auto hide/unhide rows VBA

[abmyers]

This will be the first time I've ever used code so thanks in advance for your patience with my ignorance. I'd like to have a macro that hides rows based on a condition.

In cell g3 I have a formula that counts the number of entries from another table that meet certain criteria.

I'd like to hide rows in a range based on the results of cell g3. Basically I want to hide row (19+g3):row(500)

So..

If g3=121, I would hide row 140:500.
If g3=0 I would hide row 19:500

Etc...

One more thing I need this to automatically hid/unhide based on changes to the number in G3

Thanks in advance

 

[Sthrncali]

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then 'This is the range that triggers G3 to update, not G3 itself.

ActiveSheet.Rows("19:500").EntireRow.Hidden = False

Dim NumRows as Integer

NumRows = ActiveSheet.Range("G3").Value
NumRows = NumRows + 19
ActiveSheet.Rows(NumRows & ":500").EntireRow.Hidden = True
End If


End Sub