Kan Excel automatisk se at der oprettes en ny fane?

Private Sub Worksheet_Activate()
    Dim i As Long, so As Object

    Range("A:A").ClearContents
    i = 0
    For Each so In Sheets
        i = i + 1
        Cells(i, 1) = so.Name
    Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        On Error Resume Next
        Charts(Target.Value).Activate
            If Err.Number <> 0 Then
                Sheets(Target.Value).Activate
            End If
        On Error GoTo 0
    End If
End Sub