Adjusting a sheet sorting macro to sort every sheet except for one

PaulOlsen 

Hi Paul,

This is off the top of my head without getting into the VBA too much.

Instead of trying to exclude the table of contents, can you let it sort it, then add a script that will move it to the position desired?

Worksheets("TOC").Move _ before:=Worksheets("Sheet1")  - or use "after" in place of "before"

Then add more code to select that sheet (and a cell within it?).

sheets("TOC").select

'Range("A1").Select <if desired, remove the ' >

If the sorting causes the first page to get moved around, then create a false front page that will always appear first and keep it hidden to use as an "achor".