Hej,
Din kode fejler som sådan ikke noget, den kører fint her.
Problemet er som du selv nævner det, at flere ark ikke kan hedde det samme.
Du kan prøve at bruge denne kode, som vil fortælle dig navnet på det/de ark som fejler:
Sub Take4()
Dim ws As Worksheet
On Error GoTo Fejl
For Each ws In ActiveWorkbook.Sheets
With ws
.Name = .Range("I1").Value
End With
Next ws
Exit Sub
Fejl:
MsgBox "Koden fejlede på: " & ws.Name, vbCritical
End Sub
Alternativt, hvis du 'bare' ikke ønsker at se fejlen, men blot ved undlade at omdøbe ark som kommer til at hedde det samme, kan du bruge denne kode:
On Error Resume Next
Sub Take4()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Sheets
With ws
.Name = .Range("I1").Value
End With
Next ws
End Sub
//Allan