Solved! Go to Solution.
Public Sub test()
Dim pMXDocument As IMxDocument
Set pMXDocument = ThisDocument
Dim pMap As IMap
Set pMap = pMXDocument.FocusMap
Dim pEnumLayer As IEnumLayer
Set pEnumLayer = pMap.Layers(Nothing, True)
Dim pLayer As ILayer
Set pLayer = pEnumLayer.Next
Do While Not pLayer Is Nothing
If TypeOf pLayer Is IGroupLayerayer Then
Debug.Print "GroupLayerayer = " & pLayer.Name
' Do a recursive search here
ElseIf TypeOf pLayer Is IGeoFeatureLayer Then
Debug.Print "FeatureLayer = " & pLayer.Name
End If
Set pLayer = pEnumLayer.Next
Loop
End Sub