Sort worksheet tabs (with exclusions)

[pinebush]

I need to group / sort worksheet tabs alphabetically. The one area which I cannot solve is how to group & sort only tab names which include a specific string. The workbooks will have varying numbers of sheet tabs. I need to move all the sheet tabs where the tab name begins with "INV". This string is suffixed with incremental numbers.

• The sheet tabs which do not contain the text string should be excluded from the sort.
• There may also be hidden sheets, so the code will need to run only on the visible sheets.

This is an example of a possible tab order before sorting:
Tabs Unsorted.bmp

After running the code, it should be sorted as follows:
Tabs Sorted.bmp

The attached workbook contains a code module, but it does not work when sorting only specific tabs and ignoring the others. I plan to include this code in the 'Deactivate' event in the Sheets("Template") module.

Thank you in advance, for your response.

[carlmon]

Sheets("INV_1").Move Before:=Sheets(5)
Sheets("INV_2").Move Before:=Sheets(6)
Sheets("INV_3").Move Before:=Sheets(7)

.... ETC.

You'd have to write this line of code for every new "(INV_#)" sheet

[pinebush]

As mentioned, each workbook will have varying numbers of sheet tabs. I also will not know the number of sheet tabs which meet the criteria. This method seems to add complexity - I would find it easier to manually drag the sheets into position.

[JEC.]

Try this

Please Login or Register  to view this content.

[pinebush]

Thank you JEC for your solution. I discovered that it fails when there are worksheets which are xlSheetVeryHidden. I modified 2 lines of code, which seem to handle every possibility.
Instead of

Please Login or Register  to view this content.

, I am able to use

Please Login or Register  to view this content.

I appreciate your prompt response with a working solution.