Just make a subtle change in your code.

Remove " ActiveSheet.Next.Select" from your program. At the beginning of
your For Loop add  this: " Sheets(counter).Select"

This will start at index 1 (each sheet is indexed starting at 1) and
work its way to the maximum amount of sheets  within the workbook.