Makro pro excel 2010

Ahoj,
mám problém s makrem. Makro bylo vytvořeno ve verzi Excel 2003. Při spuštění ve verzi 2010 ale nefunguje. Mohli by jste mi pomoci s kodem, popřípadě co změnit?

Public Sub NamesOfFilesInDirectory(FilePath As String, Filename As String)
    
    Dim FS As FileSearch
        
    Set FS = Application.FileSearch
    With FS
        .LookIn = FilePath
        .Filename = Filename
        .Execute
    End With
    
    Dim i, j As Integer
        
    For i = 1 To FS.FoundFiles.Count
        ReDim Preserve FilesInDirectory(i)
        FilesInDirectory(i) = FS.FoundFiles(i)
    Next i
        
End Sub

Děkuji
Vítek