Thank you all for your help. To answer your question PHV, intRow = 2 is commented because there are no column headers. I made the suggested changes. Here is the code:
Dim objExcel, objWorkbook, objUser, strDomain, intRow, strFile
Set objExcel = CreateObject("Excel.Application")...