Jeg arbejder med en større excel model med 40-50 faner, disse faner skal have samme navn som i celle I1 i arket. Cellen I1 består af en opslået værdi og noget tekst så den kunne hedde "Sony_Okt" hver af disse faner henter det ønskede fanenavn fra en navngivet område i et inddata ark. Jeg har prøvet at forsimple koden til et minimum, men får stadig fejlkoden: "1004 Et ark kan ikke omdøbes til at have samme navn som et andet ark, referenceobjekt eller en Visual Basic Mappe"

 

Jeg kan godt forstår hvad der menes med fejlen, men jeg kan bare ikke finde den for jeg har sikret mig at ingen af fanerne kommer til at hedde det samme.

 

Navnet skulle gerne være I1 på alle ark formlen i I1 hedder =A2&" "&M1

 

Tænker om man kan lave en form for fejlsikring?

 

Her er min kode:

 

Sub Take4()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
    With ws
    .Name = .Range("I1").Value
    End With
Next ws
End Sub

 

 

Håber der er en som kan hjælpe da jeg kigget mig omkring på nettet efter alternativer. Det ville spare mig for en masse tid ikke at skulle lave "dumme arbejde" ved manuelt at omdøbe faner hver måned.

 

Mvh.