Cycling through files in a folder

Try activating a worksheet in wbNew by replacing this:

With wbNew
Cells(1, 1).Select

with this:

With wbNew
Sheets(1).activate
Cells(1, 1).Select

I've used sheet 1 for an example.