VBA not working

My goal is to have the first page set as a template which would be applied to any additional sheets added to the book.
So far I tried to set a code to name the Sheet after A5. This is the code I found online. It was working at the start but not now. I could use a bit of assistance. Thanks. Peter

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