Sheetname - reference fra felt?

Excel har ikke en automatisk funktion til at overføre en celles indhold til arknavn.

Den lette er en makro, der skal afvikles manuelt:

Sub myTabName()
    ActiveSheet.Name = ActiveSheet.Range("A1")
End Sub

Den lidt mere avancerede er denne, der tager højde for at A1 ikke indeholder mere end de tilladte 31 tegn.
Desuden sker der intet hvis A1 er tom.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Set Target = Range("A1")
    If Target = "" Then Exit Sub
    On Error GoTo Badname
    ActiveSheet.Name = Left(Target, 31)
    Exit Sub
Badname:
    MsgBox "Please revise the entry in A1." & Chr(13) _
    & "It appears to contain one or more " & Chr(13) _
    & "illegal characters." & Chr(13)
    Range("A1").Activate
End Sub

Indsættes på arkets kodeblad.

Glemte du spørgsmålet?

Hej

Undskyld den sene feedback - der har været ferie travlt på arbejdet.