Cellenavn som fanenavn Excel 2007

Du skal være velkommen til at sende filen - eller en " model" heraf - så skal jeg prøve med lidt VBA.
@-adresse under profil.

Jamen det ville jeg som end gerne... Problemet er bare at hvis det så virker så skal jeg også kunne anvende det på en 2-3 andre ark...

Men grundideen er:

Celle A3: Agnethe - som skal på fane 2 osv osv...

Og det burde jo være simpelt nok... Men kan altså ikke gennemskue hvad jeg gør forkert.

Hvad gør du indtil nu?

Prøv at vise koden her..

Se evt. koden i spørgsmål 924920

Private Sub Workbook_SheetChange(ByVal Ark As Object, ByVal Target As Range)
If Target = Range("A1") Then Ark.Name = Ark.Range("A1").Value
End Sub

Er den jeg har brugt... Men kan ikke rigtig på det til at fungere. Måske fordi jeg ikke er så skrap til sådan noget kode.

Er det meningen at alle navne i kolonne A skal overføres til hver sin fane - eller?

Ja det er det. Det er et lønark hvor hver medarbejders lønseddel er på hver sin fane.

Skal måske også lige sige at koden er forsøgt på et navn og en fane! Ikke dem alle.

Ok - d.v.s, at for hvert ark findes navnet i A1 og dette skal så anvendes som Ark-navn.

Rem Koden indsættes i ThisWordBook i VBA-vinduet:
Rem Koden kan aktiveres med Alt+F8 / indsætArknavne / Afspil makro

Public Sub indsætArknavne()
Dim ark As Worksheet
    For Each ark In ActiveWorkbook.Sheets
        ark.Name = ark.Range("A1")    'hvis navn er i A1
    Next ark
End Sub

Min blondinehjerne kan ikke få koden til at fungere... Den kommer med en fejl 400 (?).

Ok - hvis du sender en mail til mig - så returnerer jeg min testfil.
@-adresse under min profil.

afsendt :)

Const navneListe = "Ark1"
Const startRække = 3
Const førsteArkNr = 2
Dim sidsteRække

Dim navneListeArk As Worksheet, ræk As Long, navn As String, arkNr As Long
Public Sub opretFaneNavne()
    Set navneListeArk = ActiveWorkbook.Sheets(navneListe)
    navneListeArk.Activate
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
    arkNr = førsteArkNr
   
    For ræk = startRække To sidsteRække
        navn = Range("A" & ræk)
        ActiveWorkbook.Sheets(arkNr).Name = navn
        arkNr = arkNr + 1
    Next ræk
End Sub