Automatically change Sheet names by typing in a cell

[BLRITCHIE]

Hi all,
I have a workbook template that has 31 sheets in it, the first 2 of which are defined by the template, the others can be user modified.
On the first sheet, there is a list of the names of the other sheets (amongst other data) in B3:B31, and I would like to be able to change the names of the associated sheets by changing these cells contents. The order of names in the list doesn't change, but the order of the sheets in the book can.
I have written the below code, which works, but is really slow, even just changing cells with the keypad causes it run and so hang for a second.
The other issue with it is that it refers to the sheets using their position in the book (sheets (ref)) which can change, or other sheets get inserted, but I dont know how to to apply the sheet# method of reference when the number needs to change. I know I can hard code a lot of this but would prefer a more elegant method.
I know there must be a much better way of doing this, but I cant work it out.

Please Login or Register  to view this content.

Thanks,

[JBeaucaire]

Maybe like so:

Please Login or Register  to view this content.

Sample file attached.

[royUK]

If the order isn't constant then try this.

In the Sheet Module:

Please Login or Register  to view this content.

The code uses this Function to test for a bad name, place it in a Code Module:

Please Login or Register  to view this content.