VBA несколько диаграмм на одном листе

Формулировка задачи:

Всем привет, и с наступающим праздником. Начал использовать язык VBA, файл делаю в Excel2003. Использую довольно много диаграмм и реально возник вопрос можно ли на одном листе екселя разместить сразу две, три диаграммы, естественно с разными показателями. Сейчас получается рабочая диаграмма только в одном окне, хотя указываю для них разные диапазоны, как привожу в примере кода. Понимаю что If .ChartObjects.Count > 0 Then .ChartObjects.Delete убивает старые диаграммы, менять показатель 0 на 1 или 2 нет смысла, получается старые диаграммы не убиваются, что не есть хорошо. Умные книжки по VBA в этом вопросе ответа не дали. Как то можно дать каждой из двух диаграмм имя, знак, отличие что бы прога размещала убивала конкретную диаграмму. А может быть вообще в VBA это не возможно – разместить пять диаграмм на одном листе? Спасибо если кто подскажет.
привожу часть кода с двумя диаграммами в двух окнах из которых работает только одно окно

[/SRC]  Workbook_Open()
    DeleteCharts52l1
    ChartBuilder52l1
    Filllst52l1
    DeleteCharts52l2
    ChartBuilder52l2
    Filllst52l2

  DeleteCharts52l1()
 Worksheets()
 .ChartObjects.Count >  
    .ChartObjects.Delete

  ChartBuilder52l1()
    Charts.Add
     ActiveChart()
      .ChartType = xlColumnClustered
      .SetSourceData _
        Source:=Sheets().Range(), PlotBy:=x1Rows
    .SeriesCollection().XValues = 
    .Location Where:=xlLocationAsObject, :=
     
     ActiveChart()
    .HasTitle = True
    .ChartTitle.Characters.Text = _
    Worksheets().Range().Value
    .Axes([xlCategory], xlPrimary).HasTitle = False
    .Axes([xlValue], xlPrimary).HasTitle = False
     
    ActiveChart().HasLegend = False
     Worksheets().ChartObjects()
    .Top = Range().Top
    .Left = Range().Left
    . = Range().
    .Height = Range().Height

  Filllst52l1()
     Worksheets().lst52l1
    .ListFillRange = 
    .ListIndex = 

  DeleteCharts52l2()
 Worksheets()
 .ChartObjects.Count >  
    .ChartObjects.Delete

  ChartBuilder52l2()
    Charts.Add
     ActiveChart()
      .ChartType = xlColumnClustered
      .SetSourceData _
        Source:=Sheets().Range(), PlotBy:=x1Rows
    .SeriesCollection().XValues = 
    .Location Where:=xlLocationAsObject, :=
     
     ActiveChart()
    .HasTitle = True
    .ChartTitle.Characters.Text = _
    Worksheets().Range().Value
    .Axes([xlCategory], xlPrimary).HasTitle = False
    .Axes([xlValue], xlPrimary).HasTitle = False
     
    ActiveChart().HasLegend = False
     Worksheets().ChartObjects()
    .Top = Range().Top
    .Left = Range().Left
    . = Range().
    .Height = Range().Height

  Filllst52l2()
     Worksheets().lst52l2
    .ListFillRange = 
    .ListIndex = 

Ну и на самом листе где строиться  график стандартный код 

  lst52l1_Click()
 r  
ActiveSheet.ChartObjects().Activate
r = lst52l1.ListIndex + 
 ActiveChart()
    .SetSourceData _
    Source:= _
    Sheets().Range().Rows(r), PlotBy:=x1Rows
  .SeriesCollection().XValues _
  = Sheets().Range()
   
   ActiveChart()
  .HasTitle = True
  .ChartTitle.Characters.Text = lst52l1.Text

  lst52l2_Click()
 r  
ActiveSheet.ChartObjects().Activate
r = lst52l2.ListIndex + 
 ActiveChart()
    .SetSourceData _
    Source:= _
    Sheets().Range().Rows(r), PlotBy:=x1Rows
  .SeriesCollection().XValues _
  = Sheets().Range()
   
   ActiveChart()
  .HasTitle = True
  .ChartTitle.Characters.Text = lst52l2.Text

[SRC vba]

Решение задачи: «VBA несколько диаграмм на одном листе»

textual
                            Листинг программы 
                        

                            <font color="blue">With</font> ActiveSheet.ChartObjects.Add
    .<font color="blue">Name</font> = <font color="teal">"My cool chart"</font>
<font color="blue">End</font> <font color="blue">With</font>
                        