Expanding the outline of one subtotal

[rhody]

Hi All,

Does anyone know how to expand the outline in one subtotal? I have a
group of subtotals for which I have used ActiveSheet.Outline.ShowLevels
RowLevels:=2 to display only the summary information. I then search for
one of the subtotals and I want ot expand only that one subtotal. Just
like when you click on the small + button on the side of the sheet.
Recording a macro does not produce anything and selecting the row as a
range and trying to change the outline level also does not work. It
seems you can only change the entire outline by changing RowLevels to
3.

Any ideas?

TIA
Mike

 

[Dave Peterson]

I'm not sure how you found that cell/row to unhide, but since you know it, maybe
something like:

Option Explicit
Sub testme99()
Dim myCell As Range
With ActiveSheet
Set myCell = .Range("a16")
myCell.Rows.ShowDetail = True
End With
End Sub

(A16 was a cell that contained a subtotal in my testing.)