Incompatibilidad función FileSearch excel 2007

[Flipp]

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

[Potter08]

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