Navngiv ark ud fra celle ( i andet ark)

Prøv


Sub NavngivArk()

For i = 2 To 10
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next

End Sub

Hmmm, det virker næsten. Arkene bliver navngivet, men arkene skal kunne opdatere hver gang jeg ændrer navnene i ark 1 - det gør de ikke nu

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row >= 2 And Target.Row <= 10 Then
        Sheets(Target.Row).Name = Target
    End If
End Sub

Vi er ved at være tæt på nu ;)
Men, det er nødvendigt, at jeg stadig kan taste i de andre celler i ark 1, uden at det går ud over de andre arks navne.
Det kan jeg desværre ikke nu.

Koden skal kun "berøre" celle A2-A10 i fanebladet Ark 1 - resten skal jeg kunne skrive i, uafhængigt af VBA koden.

Ja - ok - vender tilbage efter frokost

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Row >= 2 And Target.Row <= 10) And Target.Column = 1 Then
        Sheets(Target.Row).Name = Target
    End If
End Sub

Merci

Måske hr. supertekst kan svare på mit seneste spørgsmål? ;)

Selv tak - har ikke set dit sidste spørgsmål før nu - men det kunne jeg nok - men du har fået forslag - ellers må du give signal.