If, according to the first error this line is Line 40: Set objUser = GetObject("CN=" & objExcel.Cells(intRow,3 & intRow,2).Value & "," & strDomain)
then Line 13 isn't even displayed in the code you've given.
Can you identify which line of code you are getting the error in please?
Cheers,
Dave...