Hi,
I can get the sheet to expand/colapse, but want to be able to do it for
a specific range.

This is what works:
Sub ExpandColapse()
'Acts on Active Sheet

   With ActiveSheet
   ' collapse all columns
   .Outline.ShowLevels columnLevels:=1
   ' open first nest
   .Outline.ShowLevels columnLevels:=2
   ' open second nest
   .Outline.ShowLevels columnLevels:=3
   End With

End Sub

I haven't been able to find anything that gets more specific than
modifying the Sheet.

thanks for any input.

bjoltus