Renaming of Worksheets from Input Data

Hi,
Sorry to be reposting, I m desperate.

I have struggled on for ever it seems trying to finalise this scoring
program, and just at the last gasp €“ it all went haywire. Naturally.

I had a macro working (thanks to 'bj') which renamed the tabs to show data
input onto the Relevant Set Up sheet in each workbook on the sheet called SET
UP. So as contestants names were entered the tabs changed to relate to those
names. Since I moved them all to one workbook although everything else
works, the macros dont

Sub shnm()
For i = 2 To 6
Sheets(i).Name = Sheets(1).Cells(I + 7, 2)
Next i
End Sub

I altered the For I = 2 To 6 to relate to the smaller range of sheet tabs in
the other workbooks, that was fine

I added a MASTER page which is now the first sheet in the workbook where one
of 8 options can be selected using macros based on '.visible' so when an
option is clicked on the MASTER page at start up the only tabs showing are
the selected option eg., Set Up1, 1,2,3,4,5, Results, through to '8' Masters
is then hidden as well. This works fine.

The original renaming macro doesnt work now that the individual books are
all part of one book.
The first and last sheets did not need renaming, the middle
five/four/three/two needed to be renamed according to the input on Set Up
1/2/3/4/5/6/7/8.

The tabs looks like this.
Set Up 1, 1, 2, 3, 4, 5, Results 1

Set Up 2, 21, 22, 23, 24, 25, Results 2

Set Up 3, 31, 32, 33, 34, Results 3)

Set Up 4, 41, 42, 43, 44, Results 4

Set Up 5, 51, 52, 53, Results 5

Set Up 6, 61, 62, 63, Results 6

Set Up 7, 71, 72, Results 7

Set Up 8, 81, 82, Results 8

Is this new first sheet 'MASTERS' whats causing the problem or is it
something to do with the hidden sheets, or how many there are of them now.

I am totally desperate, can anyone out there help, please.