Broda & sista programer

minta bantuan, gw pernah bikin program VBA excel 2003 tapi error ga mau jalan di excel 2007.

Private Sub ambilnamafile()

Set fs = Application.FileSearch

patt = InputBox("File pattern", , "xls")



Dim FolderName As String

 FolderName = GetFolderName("Select a folder")

 If FolderName = "" Then

 MsgBox "No folder selected."

 Else

 MsgBox "Selected folder : " & FolderName

 End If



With fs

 .LookIn = FolderName

 .SearchSubFolders = True

 .Filename = "*." & patt

 If .Execute() > 0 Then

 MsgBox "There were " & .FoundFiles.Count & " " & patt & " file(s) found."

 jawaban = MsgBox("Ambil fullname ?", vbYesNo)

 For i = 1 To .FoundFiles.Count

 'MsgBox .FoundFiles(i)

 If jawaban = vbYes Then

 ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=(fs.FoundFiles(i)), TextToDisplay:=(fs.FoundFiles(i))

 'Cells(i, 1) = (fs.FoundFiles(i))

 Else

 'nama file

 pj = Len(.FoundFiles(i))

 For A = pj To 1 Step -1

 anu = Mid(.FoundFiles(i), A, 1)

 If anu = "\" Then

 namaPendek = Mid(.FoundFiles(i), A + 1, pj - A)

 Exit For

 End If

 Next A

 ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=(fs.FoundFiles(i)), TextToDisplay:=namaPendek

 'end of namafile

 End If

 Next i

 Else

 MsgBox "There were no files found."

 End If

End With

End Sub

Adakah alternative application.filesearch di Excel 2007 ?