Kan man ændre Sheetname gennem VBA med referance til en celle

Sheets("Ark2").Name = Sheets("Ark1").Range("A1").Value

du kan sætte denne ind i ark2 modulet, så tjekker den hvergang du aktiverer siden.

Private Sub Worksheet_Activate()
If ActiveSheet.Name <> Sheets("Ark1").Range("A1").Value Then
    ActiveSheet.Name = Sheets("Ark1").Range("A1").Value
End If
End Sub

Det Virker!
Jeg er imporneret 1000 tak

Ok og ikke tak for point :-((