Ændre Ark navn fra celle

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E2")) Is Nothing Then
        ActiveSheet.Name = "Uge " & Target.Value
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = "Uge " & Range("E2")
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
'Hvis B4 ændres
If Not Intersect(Target, Range("B4")) Is Nothing Then

    Dim ws As Worksheet
    Nr = 1
   
'Først gives arkene et forløbende nr. fra 1.
    For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
        ActiveSheet.Name = Nr
        Nr = Nr + 1
    Next ws
   
'Der efter omdøbes til: Uge og nr. fra E2
    For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    ActiveSheet.Name = "Uge " & ActiveSheet.Range("E2")
    Next ws
   
End If
   
Application.ScreenUpdating = True
End Sub