Group and Ungroup Macro

I have a spread sheet where I have the group feature running down the rows. I have rows 5-8 grouped, skipping 9, 10-13 grouped skipping 14, 15-18 grouped skipping 19 etc... all the way down about 31 times. Anyhow the user will click the group to see rows 5-8, put in info, drop to 10-13 and put in info, maybe skip a few and put in info further down. What I want them to be able to do is click a button that hides all the groups reguardless of which ones are open, is there a simple formula for this? I tired to record it, but it did not write code.

Originally Posted by caliskier

I have a spread sheet where I have the group feature running down the rows. I have rows 5-8 grouped, skipping 9, 10-13 grouped skipping 14, 15-18 grouped skipping 19 etc... all the way down about 31 times. Anyhow the user will click the group to see rows 5-8, put in info, drop to 10-13 and put in info, maybe skip a few and put in info further down. What I want them to be able to do is click a button that hides all the groups reguardless of which ones are open, is there a simple formula for this? I tired to record it, but it did not write code.

Nevermind think I figured it out

If you found a solution, please post it in case others have a similar need.