Libro sin hojas

Karla, mirando el codigo;:
- ThisWorkbook:
Option Explicit
Private Sub Workbook_Open(): FJerarquía.Show: End Sub
- Hoja1:
Option Explicit
- Modulo1:
Option Explicit

Declare Function GetDesktopWindow Lib "user32" () As Long:
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal
wCmd As Long) As Long

Public Const GW_CHILD = 5: Public Const GW_HWNDNEXT = 2: Public
gsDirRango As String
Public Sub GenerarReporte(): Dim lHwnd As Long: Dim clsInf As New
CInfVentana: With wksReporte: .Activate: .Cells.Clear: [A1] "Handle": [B1] = "Título de la ventana": [C1] = "Nombre de la Clase":
[D1] = "Nombre de la Aplicación": .Range("A2").Activate: lHwnd GetWindow(GetDesktopWindow(), GW_CHILD): clsInf.Handle = lHwnd: Do:
With ActiveCell: .Offset(0, 0).value = clsInf.HandleHex: .Offset(0,
1).value = clsInf.Título: .Offset(0, 2).value clsInf.Clase: .Offset(0, 3).value = clsInf.Aplicación: .Offset(1,
0).Activate: lHwnd = GetWindow(lHwnd, GW_HWNDNEXT): clsInf.Handle lHwnd: End With: Loop While lHwnd <> 0: gsDirRango Range(Range("A2:D2"),
Range("A2:D2").End(xlDown)).Address: .Range("A2").Activate: End With:
End Sub

a ver si te sirve de algo..