Putting Private Sub in created sheet

Question

In PERSONAL.XLSB I am trying to put VBA code in a created sheet as private sub but until now I am unable to do so! the part of code that creates the sheet is:

Set Synthese_Global = ActiveWorkbook.Sheets.Add(Before:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))

  Synthese_Global.Name = "Synthèse_Globale"

after which I create a validation list in cell B1 of "Synthèse_Globale" based on column A1 of the same sheet:

Synthese_Global.Activate
Synthese_Global.Range("B1").Validation.Delete
Synthese_Global.Range("B1") = Empty
Dim i As Integer
For i = 2 To Synthese_Global.Range("A2").End(xlDown).Row
  If Synthese_Global.Cells(i, 1) <> "N/A" Then 'ignore error values in the list. change to: if IsError(Synthese_Global.Cells(i, 1)) Then
  'Else                                    'if it is real string
    If Len(str) = 0 Then
      str = Synthese_Global.Cells(i, 1)
    Else
      str = str & "," & Synthese_Global.Cells(i, 1)
    End If
  End If
Next i

Synthese_Global.Range("B1").Validation.Add xlValidateList, , , str

So cell B1 contains a validation list from which if I choose a value then the cell change event is activated because I am monitoring change in cell B1 after putting the code bellow:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Synthese_Global As Worksheet
Dim ws As Worksheet
Set Synthese_Global = ActiveWorkbook.Worksheets("Synthèse_Globale")
If Application.Intersect(Target, Range("B1:B1")) Is Nothing Then Exit Sub
For Each ws In Worksheets
    If ws.Name = "Dropped_Calls_MME_Graphs" Then
        Application.DisplayAlerts = False
        Sheets("Dropped_Calls_MME_Graphs").Delete
        Application.DisplayAlerts = True
    End If
Next
If Not Intersect(Target, Range("B1:B1")) Is Nothing And Target.Value <> "" Then
Range("M2:AY2").EntireColumn.Delete
Call Chosen_Cell
Call Chart_Graphics_DroppedCalls_eNodeB
Call Chart_Graphics_IMEISV
End If
End Sub

This code basically scans if there is a sheet named "Dropped_Calls_MME_Graphs" and deletes it if it finds it then it deletes rows of Range("M2:AY2") in my created sheet Synthese_Global then it takes into account the chosen value in cell B1 (from the validation list) and it calls some procedures that are going to draw some graphs in a new sheet called "Dropped_Calls_MME_Graphs" (I deleted the old one) Now what i really want is to automatically put that private sub in my created sheet Synthese_Global after creating it, which i don't know how to do it! Any help is much appreciated, thanks in advance!

h2so4 · Answer

Put your sub it in thisworkbook's code. Test sheet's name if needed (but I don't think so, seeing your code)...