Hente flere filer fra bibliotek og lægge sammen i en fil

Hej,

Jeg har følgende makro fra et tidligere spørgsmål her fra debatten.

Jeg kan ikke få makroen til at virke.

Jeg har brug for, at makroen kører i office 2007, og at den henter filerne fra biblioteket c:\data og dataerne vil ligge i ark1 i hver af filerne.

Er der nogen, som kan hjælpe med den tilretning?

Pft

Mvh
Ransborg

-------------------
Sub GetAllData()
    Dim FS As FileSearch
    Dim FilePath As String, FileSpec As String
    Dim i As Long
    Dim v As Variant
    Dim rTarget As Range
    Dim ToSheet As Worksheet
    Dim Data As Variant
    '******************************
    FilePath = "c:\data"
    FileSpec = "*.xls"
    Set ToSheet = ThisWorkbook.Worksheets("Data")
    '******************************
    'find excel filerne
    Set FS = Application.FileSearch
    With FS
        .LookIn = FilePath
        .Filename = FileSpec
        .SearchSubFolders = False          'skal underfoldere også søges
        .Execute
        If .FoundFiles.Count = 0 Then
            MsgBox ("Ingen filer fundet")
            Exit Sub
        End If
    End With
    'hent data
    For i = 1 To FS.FoundFiles.Count
        Set rTarget = ToSheet.Range("A1000").End(xlUp).Offset(1, 0)
        rTarget.Offset(4, 0) = FS.FoundFiles(i)
        Workbooks.Open Filename:=FS.FoundFiles(i)
        Data = Range(Range("A3"), Range("F" & Range("A1000").End(xlUp).Row))
        ActiveWorkbook.Close False
        For x = 1 To UBound(Data)
            Data(x, 5) = Data(x, 5) / 100000
            Data(x, 5) = Data(x, 5) / 100000
        Next
        rTarget.Offset(5, 0).Resize(UBound(Data, 1), UBound(Data, 2)) = Data
    Next
End Sub