excel macro to hide multiple ranges of rows

Tonight, I used the below macro (posted here) to automatically hide multiple ranges of rows on a Excel worksheet.

This vba code is easy to edit, and tonight it successfully hid more than 70 ranges in a few seconds.

Sub Hide()

ActiveSheet.Rows("3:4").Hidden = True

ActiveSheet.Rows("7:8").Hidden = True

End Sub

It will work on whatever worksheet is currently selected in a workbook.