I think you'll have to look for that outlinelevel:

Option Explicit
Sub testme99()
Dim myRange As Range
Dim myCell As Range
Dim maxLevel As Long

With ActiveSheet
Set myRange = .Rows(1)

maxLevel = 0
For Each myCell In myRange.Cells
If myCell.EntireColumn.OutlineLevel maxLevel Then
maxLevel = myCell.EntireColumn.OutlineLevel
End If
Next myCell

End With
MsgBox "Largest visible level: " & maxLevel

End Sub



Paul Martin wrote:

Thanks for the response, Atishoo. I'm referring to (in Excel 2003)
Data, Group and Outline, Group to group columns. Where this has
occurred on a sheet, I want to be able to detect it in code and then
copy it to another sheet.

--

Dave Peterson