Sorting sheets

[Damo10]

Hi,

I have a workbook with lots of sheets, is it possible to have a macro that will sort the sheets alphanumerically but to keep sheets "Main",Summary" & "Report" as the first ones. I would like to run this after my add new sheet macro.

Regards

 

[JackDanIce]

My mistake in use of word recursive but thank you for the explanation, wasn't aware of the implications of stable and unstable sorts and yes, watching the tabs move, effectively is "sorting the sheets on the fly". Cheers!

 

[shg]

BTW, as written, it does a case-sensitive sort (dunno why I needed that at the time). To change that, change this line

                If .Sheets(i).Name < .Sheets(j).Name Then

to

                If StrComp(.Sheets(i).Name, .Sheets(j).Name, vbTextCompare) <> 1 Then