Switch from 2007 to 2010

[jim may]

Over the weekend I switched from xl 2007 to 2010. This exact code worked fine in 2007, but not in 2010 currently. As i step thru (F8) the red code line appears to be "flawed"; Any help appreciated...

Sub foobar()   ' This is what's required for XL 2007
Dim fso As Object
Dim strName As String
Dim strArr(1 To 65536, 1 To 1) As String, i As Long
Dim searchTerm As String
searchTerm = Range("B3").Value
Const strDir As String = "C:\Users\Owner\Documents\Trusted_Locations"
Range("B4:B7000").ClearContents
strName = Dir$(strDir & "\*" & searchTerm & "*.xls?")
Do While strName <> vbNullString
     i = i + 1
     strArr(i, 1) = Mid(strDir & "\" & strName, 37, 99)
     strName = Dir$()
Loop
fCount = i
MsgBox "Found " & fCount & " Files"
If i > 0 Then
    Range("B4").Resize(i).Value = strArr
End If
End Sub

 

[Ron Coderre]

That code runs fine for me using Excel 2010...AFTER I define fCount (dim fCount As Integer)

 

[jim may]

That code runs fine for me using Excel 2010...AFTER I define fCount (dim fCount As Integer)

Thanks, I'd referenced an incorrect file path.

Jim