Code added by VBA ends up on wrong sheet?

[Bob Phillips]

    Set ReportCusts = Worksheets.Add(Before:=Sheets(1))
    'Application.OnTime Now() + TimeSerial(0, 0, 0), "AddCode"
    ReportList.VBProject.VBComponents(ReportCusts.CodeName).CodeModule. _
            AddFromString _
            "Private Sub Worksheet_Change(ByVal Target As Range)" & Chr(10) & _
            "    If Cells(1, Target.Column).Value = ""Select"" Then" & Chr(10) & _
   "         Target.Value = UCase(Target.Value)" & Chr(10) & _
            "    End If" & Chr(10) & _
            "End Sub"