Máximos colaboradores

Sub BuscarYListarHojas() Dim ruta As String Dim nombreLibro As String Dim libro As Workbook Dim hojaDestino As Worksheet Dim i As Integer Dim fd As FileDialog Dim rutaCompleta As String Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.Title = "Seleccionar archivo" fd.Filters.Add "Archivos de Excel", "*.xls; *.xlsx; *.xlsm", 1 fd.AllowMultiSelect = False If fd.Show = -1 Then rutaCompleta = fd.SelectedItems(1) Else MsgBox "No se seleccionó ningún archivo.", vbExclamation Exit Sub End If On Error GoTo ErrorHandler Set libro = Workbooks.Open(rutaCompleta) On Error GoTo 0 Set hojaDestino = ThisWorkbook.Sheets("lista") hojaDestino.Cells.Clear For i = 1 To libro.Sheets.Count hojaDestino.Cells(i, 1).Value = libro.Sheets(i).Name Next i libro.Close False MsgBox "Hojas listadas exitosamente en la hoja 'lista'", vbInformation Exit Sub ErrorHandler: MsgBox "No se pudo abrir el libro especificado. Verifique el nombre y la ruta.", vbCritical End Sub Recuerde, para ejecutar debe extraer del ZIP AYUDA EXCEL.zip

Prueba y comenta HHE PRUEBA (3) (1).xlsm