Add Copied Worksheet Name To Cell

original thread 2. Originally Posted by Dave Hawley

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wSheet As Worksheet, wSheet2 As Worksheet
Dim strNum As String, strNum2 As String
If Target(1, 1).Address = "$J$5" Then
If Target = vbNullString Then Exit Sub
If IsNumeric(Target) Then
strNum = Target + 1
strNum2 = Target
On Error Resume Next
Set wSheet = Worksheets(strNum)
Set wSheet2 = Worksheets(strNum2)
On Error Goto 0
If Not wSheet Is Nothing Then
Application.EnableEvents = False
Application.Undo......................

What I would like to do is after the new sheet is created it would make cell j5 on the newly created sheet the same name as the sheet itself. I've tried to do that but the above code tries to activate. Is there a way to have the above code only work on the very first sheet and for the cell naming code to work on only the created sheets