Create VBA Code inside Excel using VBA

I have an Access Database program that is creating Excel Workbooks, however, I have hidden sheets that require some VBA code.  I need a way to create the VBA code inside each Excel Workbook created using VBA code.  I have attached the code that needs to go into each workbook.  Thanks.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 41 Then                                          'THIS IS THE STATUS COLUMN
    Dim lstrow As Long
   
    With Sheets("hidden")
   
        lstrow = .Range("A65536").End(xlUp).Row
        .Cells(lstrow + 1, 1) = ActiveSheet.Cells(Target.Row, 1)    'THIS IS THE ACCOUNT NUMBER COLUMN
        .Cells(lstrow + 1, 2) = ActiveSheet.Cells(Target.Row, 41)   'THIS IS THE STATUS COLUMN
        .Cells(lstrow + 1, 3) = Date                                'THIS IS AUTOMATED RECORD LOGGING
        .Cells(lstrow + 1, 4) = Time                                'THIS IS AUTOMATED RECORD LOGGING
   
    End With
End If

If Target.Column = 41 Then                                                  '

    With Sheets("hidden")
        lstrow = .Range("A65536").End(xlUp).Row
        For i = 2 To lstrow
            If .Cells(i, 1) = ActiveSheet.Cells(Target.Row, 1) And .Cells(i, 2) = ActiveSheet.Cells(Target.Row, 41) Then
                .Cells(i, 5) = ActiveSheet.Cells(Target.Row, 42)
                Exit Sub
            End If
        Next
        .Cells(lstrow + 1, 1) = ActiveSheet.Cells(Target.Row, 1)    'THIS IS THE ACCOUNT NUMBER COLUMN
        .Cells(lstrow + 1, 2) = ActiveSheet.Cells(Target.Row, 41)   'THIS IS THE STATUS COLUMN
        .Cells(lstrow + 1, 3) = Date                                'THIS IS AUTOMATED RECORD LOGGING
        .Cells(lstrow + 1, 4) = Time                                'THIS IS AUTOMATED RECORD LOGGING
        .Cells(lstrow + 1, 5) = ActiveSheet.Cells(Target.Row, 42)   'THIS IS COMMNET LINE
    End With

End If

End SubStart Free Trial