Hi Smarts,

I have the following macro that has been working fine for ages in
Excel 2003 and now is giving me "run time error 445 Object doesn't
support this action" in Excel 2010. I need help in fixing this macro
please.

Sub all_2010_pdf()
Dim i As Long
With Application.FileSearch
.NewSearch
.SearchSubFolders = True
.Filename = "*.pdf"
.LookIn = "\c:\temp\vba"
.Execute
For i = 1 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), _
Address:=.FoundFiles(i), TextToDisplay:= _
Right(.FoundFiles(i), Len(.FoundFiles(i)) - _
InStrRev(.FoundFiles(i), "\"))
Next
End With
End Sub
================================================== =

Thanks in advance