Expand Columns but only

[drom]

Hi and Thanks in advance!!

I have a few sheets with many .Outlineed columns (Some of then Collapsed some of then expanded
For this eg my OutLined Columns are:

• Columns(C:E)
• Columns(H:J)
• Columns(M:P)
• Columns(V:W)

This is just a eg, Actually I do not know the real Outlined Columns

If I have in range("A1") the value N

I would like to check if N6 is within a Outlined group of columns and show this columns ( Keep the other Coutlined Columns the way they were)
So in my Eg: Expand Columns (M:P) if they are actually collapsed


Any Idea??

    ActiveSheet.Outline.ShowLevels RowLevels:=8, ColumnLevels:=8   'Expand_All
    ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1   'Collapse_All

 

[drom]

          Columns(xCOL).ShowDetail = True
          Rows(xRow).ShowDetail = True

Does the job