Victor presented the following explanation :
yes, I'm sure that there's a simple answer. No reason for this to be complex.

All you need is:

-find the start of the next group relative to an active cell

I use helper cells in a hidden column for this. Very simple coding that
makes use of local-scope defined names. It's the events handler class
that poses difficulties for most people, but you could use dedicated
menuitems on the Tools menu (or your own menu) if you don't need your
own right-click popup menu.

-find where setting for whether the summary row is at the top / bottom of the
group

Not necessary when the setting is already set since it can't be done on
a 'per group' basis (AFAIK, this is a sheetwise setting). This is a
simple matter of incrementing/decrementing the OutlineLevel for the
selected group[s]. My project just has one level to deal with, but I
coded for using more.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion