Fejl i Makro efter opgradering til Office 2007

Bedre sent end aldrig er vi opgraderet til Offcie 2007, og nu virker nedenstående makro ikke længere.

Makroen burde gøre følgende:
Lave 3 kolonne overskrifter (virker stadigvæk)
Definere starttid og sluttid for makroen (virker Stadigvæk)
Spørge opm hvor mange dage jeg ønske at søge efter fil i( virker stadig)

Det der ikke virker er funktionaliteten hvor filerne i et givet bibliotek m underbiblioteker listes. Dvs det er kun filer der er tilføjet de antal dage der promptes efter.

Nogen ideer til hvad der er galt?

Sub TegningerSharepoint() 'Tegninger i Sharepoint
ListFiles Directory:="T:\", SubDir:=True
End Sub

Sub ListFiles(Directory As String, SubDir As Boolean)
    Dim R As Long, I As Long
       
    If Directory = "" Then Exit Sub
    If Right(Directory, 1) <> "\" Then Directory = Directory & "\"
    DageSidenSidste = Application.InputBox("Indtast antal dage")
'  Insert headers
    R = 1
    Cells.ClearContents
    Cells(R, 1) = "FileName"
    Cells(R, 2) = "Size"
    Cells(R, 3) = "Date/Time"
    Range("A1:C1").Font.Bold = True
    R = R + 1
    Cells(1, 4) = "Starttid"
    Cells(1, 5) = Now()
    On Error Resume Next
    With Application.FileSearch
        .NewSearch
        .LookIn = Directory
        .Filename = "*.*"
        .SearchSubFolders = SubDir
        .Execute
        For I = 1 To .FoundFiles.Count
        If FileDateTime(.FoundFiles(I)) >= Now() - DageSidenSidste Then
            Cells(R, 1) = .FoundFiles(I)
            Cells(R, 2) = FileLen(.FoundFiles(I))
            Cells(R, 3) = FileDateTime(.FoundFiles(I))
            R = R + 1
        End If
        Next I
    End With
    Cells(2, 4) = "Sluttid"
    Cells(2, 5) = Now()
End Sub