Set wbResults = Workbooks.Open(Filename:=file, UpdateLinks:=0) ReDim Preserve recFoundFiles(1 To iCount) If LCase(oFile.name) Like LCase(sFileSpec) Then SFileName = Dir(sPath
0 Comments
Leave a Reply. |
Set wbResults = Workbooks.Open(Filename:=file, UpdateLinks:=0) ReDim Preserve recFoundFiles(1 To iCount) If LCase(oFile.name) Like LCase(sFileSpec) Then SFileName = Dir(sPath
0 Comments
Leave a Reply. |