Resolved >>> Adjust code to include sorting employee sheets a-z?

You can put the code from the link in a new Module and then put something like this:

mySorting = SortWorksheetsByName(2, Sheets.Count, "")

after your code:

'7.Rename the sheet (preferably using "Surname, Initial.")
    Sheets(Sheets.Count).Name = strNewWB

The "2" will likely need to be changed as your needs require, but that will sort sheets starting from your second sheet all the way to the sheet furthest to the right.

Thank you once again!

The code does exactly what I wanted it to. This forum has really inspired me to get to grips with VBA.

I intend to get a good book and digest! I think once I get a handle on the basics, i.e what a module actually is, etc, everthing will become clear.