Hi xld,

That looks great, I'll be able to add a few lines to make enter a row in excel after each excel document is finished.

Although, I'm getting a Run-time error 9: Subscript out of range on the following:

Set wsTarget = wbTarget.Sheets("Insp. Sheet")