Buenas gente,

Me he cambiado a la version 2007 del Excel, y he estado leyendo que no soporta esta función.

He leído por ahí y no consigo aclararme, asi que he optado al final por pediros un cable.

Esta es la sencilla función que utilizaba yo:

    With Application.FileSearch

        .LookIn = ThisWorkbook.Path

        .Filename = Hoja1.Cells(24, 11) & ".xls"

            If .Execute > 0 Then 'existe

                archivo = ThisWorkbook.Path & "\" & Hoja1.Cells(24, 11)

                Application.ScreenUpdating = False

                Workbooks.Open (archivo)

                Set xlsheet = ActiveWorkbook.Sheets.Item(1)

                ThisWorkbook.Activate

            Else 'no existe

                z = 1

            End If

    End With[/CODE]

Cómo la puedo amoldar para que funcione con el 2007?

Muchas gracias de antemano

Hola mira este ejemplo creo te servira. se usa Dir en lugar de FileSearch

sirve para listar los archivos de un directorio.

Sub Listado_archivos()

Dim Ruta As String, Nombre As String, i As Integer

Ruta = Application.ActiveWorkbook.Path + "\*.xls"

Nombre = Dir(Ruta)

i = 1

Do While Nombre <> ""

Cells(i, 1) = Nombre

i = i + 1

Nombre = Dir

Loop

End Sub

Salu2.xlsx