Do you mean
ActiveSheet.Outline.ShowLevels RowLevels:=1

ActiveSheet.Outline.ShowLevels RowLevels:=<max number of levels

If this post helps click Yes
---------------
Jacob Skaria


"Stephanie" wrote:

Can it be done?! Thanks for all of the tips in the discussion group- I have
learned how to create collapsible rows. Now I'm wondering if I could have a
command button that would automatically expand and collapse the rows. I'd
appreciate your assistance in explaining what that code would look like.
Thanks!