Hey

I have this problem with duplicates when i use a macro to auto name the sheets in the workbook. I have these cell references:

Every time i change E5 it won't change all of the sheetnames, ant this is because of the rule about no sheets can have the same name.

Sheet 1
E5 F5 G5 H5 I5
2000 : =E5+1 : =F5+1 : =G5+1 : =H5+1

Then Sheet 2 (B2=sheet1E5)
And sheet 3 (B2=sheet1F5)
And so on.

Then i use this macro to auto name the sheets (Under modules):
Sub NameWS()
On Error Resume Next
For Each ws In ThisWorkbook.Worksheets
ws.Name = Left(ws.Cells(2, 2).Value, 31)
Next
On Error GoTo 0
End Sub

And then this macro under each sheet:
Private Sub Worksheet_Change(ByVal Target As Range)
NameWS
End Sub

This is the example: http://s000.tinyupload.com/index.php...79914936788269

Is there a way how to make the sheetnames turn at the same time?