The FileSearch object should work for you. With these changes, do you still error...

[vba]Sub test2()
Dim wbResults As Workbook, i As Long, sPath As String, sName As String
With Application.FileSearch
.LookIn = "My Computer:Users:lcwesktop:excel"
.FileType = msoFileTypeExcelWorkbooks
.Filename = "*.xls"
.SearchSubFolders = False
.NewSearch
.Execute
Debug.Print "Count = " & .FoundFiles.Count
If .FoundFiles.Count > 0 Then
For i = 1 To .FoundFiles.Count
sPath = .FoundFiles(i)
sName = Right(sPath, Len(sPath) - InStrRev(sPath, Application.PathSeparator))
If WbOpen(sName) Then
Set wbResults = Workbooks(sName)
Else
Set wbResults = Workbooks.Open(Filename:=sPath, UpdateLinks:=0)
End If
wbResults.Sheets("US").Rows("1:1").Delete
wbResults.Close SaveChanges:=True
Next i
End If
End With
End Sub

Function WbOpen(wbName As String) As Boolean
On Error Resume Next
WbOpen = Len(Workbooks(wbName).Name)
End Function[/vba]

??