I am trying to set up a workbook with 11 Sheets in it.

One of these is the control sheet.

I want to change the tab names of all the other sheets from the control
sheet by entering the names in cells in the cotrol sheet.

For example, lets say I want sheet 1 to be named 'James' and sheet 2 to be
named 'Fred' etc. I want to enter "James in Cell 'B3' and "Fred" in Cell
'C3' of the Control Sheet and keep going until all 10 have names. I then
want this data to somehow change all the tab names of the other 10 sheets.

I have copied the names to Cell A1 of each of the 10 sheets and tried the
following, but this only renames the active sheet.

Public Sub RenameSheet()
NewName = Range("A1").Value
ActiveSheet.Name = NewName
End Sub

Any suggestions

Thanks