In a MS discussion board a few months ago, someone helped me with the macro listed below. It has worked like a charm and I have been able to replicate it for different workbooks. I am now stuck again though.

I need to expand only the rows listed (a4, a5, a20, a35, a50) but collapse all rows within the range(a4:a50). How can I accomplish this?

"Dim myRng As Range

Set myRng = Me.Range("a4, a5, a20, a35, a50")
myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden"