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

Private Sub DeleteCharts52l1()
With Worksheets("Ëèñò52")
If .ChartObjects.Count >  0  Then
    .ChartObjects.Delete
    End If
   End With
End Sub
Private Sub ChartBuilder52l1()
    Charts.Add
    With ActiveChart()
      .ChartType = xlColumnClustered
      .SetSourceData _
        Source:=Sheets("Ëèñò52").Range("B25:M25"), PlotBy:=x1Rows
    .SeriesCollection( 1 ).XValues = "= Ëèñò2!R24C2:R24C13"
    .Location Where:=xlLocationAsObject, Name:="Ëèñò52"
    End With
    With ActiveChart()
    .HasTitle = True
    .ChartTitle.Characters.Text = _
    Worksheets("Ëèñò52").Range("A25").Value
    .Axes([xlCategory], xlPrimary).HasTitle = False
    .Axes([xlValue], xlPrimary).HasTitle = False
    End With
    ActiveChart().HasLegend = False
    With Worksheets("Ëèñò52").ChartObjects( 1 )
    .Top = Range("A7").Top
    .Left = Range("A7").Left
    .Width = Range("A7:K23").Width
    .Height = Range("A7:K23").Height
    End With
    End Sub
Private Sub Filllst52l1()
    With Worksheets("Ëèñò52").lst52l1
    .ListFillRange = "Ëèñò52!A25:A29"
    .ListIndex =  0 
    End With
End Sub
Private Sub DeleteCharts52l2()
With Worksheets("Ëèñò52")
If .ChartObjects.Count >  0  Then
    .ChartObjects.Delete
    End If
   End With
End Sub
Private Sub ChartBuilder52l2()
    Charts.Add
    With ActiveChart()
      .ChartType = xlColumnClustered
      .SetSourceData _
        Source:=Sheets("Ëèñò52").Range("B55:M55"), PlotBy:=x1Rows
    .SeriesCollection( 1 ).XValues = "= Ëèñò2!R54C2:R54C13"
    .Location Where:=xlLocationAsObject, Name:="Ëèñò52"
    End With
    With ActiveChart()
    .HasTitle = True
    .ChartTitle.Characters.Text = _
    Worksheets("Ëèñò52").Range("A55").Value
    .Axes([xlCategory], xlPrimary).HasTitle = False
    .Axes([xlValue], xlPrimary).HasTitle = False
    End With
    ActiveChart().HasLegend = False
    With Worksheets("Ëèñò52").ChartObjects()
    .Top = Range("A37").Top
    .Left = Range("A37").Left
    .Width = Range("A37:K53").Width
    .Height = Range("A37:K53").Height
    End With
    End Sub
Private Sub Filllst52l2()
    With Worksheets("Ëèñò52").lst52l2
    .ListFillRange = "Ëèñò52!A55:A59"
    .ListIndex =  0 
    End With
End Sub


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

Private Sub lst52l1_Click()
Dim r As Integer
ActiveSheet.ChartObjects( 1 ).Activate
r = lst52l1.ListIndex +  1 
With ActiveChart()
    .SetSourceData _
    Source:= _
    Sheets("Ëèñò52").Range("B25:M29").Rows(r), PlotBy:=x1Rows
  .SeriesCollection( 1 ).XValues _
  = Sheets("Ëèñò52").Range("B24:M24")
  End With
  With ActiveChart()
  .HasTitle = True
  .ChartTitle.Characters.Text = lst52l1.Text
  End With
End Sub
Private Sub lst52l2_Click()
Dim r As Integer
ActiveSheet.ChartObjects( 1 ).Activate
r = lst52l2.ListIndex +  1 
With ActiveChart()
    .SetSourceData _
    Source:= _
    Sheets("Ëèñò52").Range("B55:M59").Rows(r), PlotBy:=x1Rows
  .SeriesCollection( 1 ).XValues _
  = Sheets("Ëèñò52").Range("B54:M54")
  End With
  With ActiveChart()
  .HasTitle = True
  .ChartTitle.Characters.Text = lst52l2.Text
  End With
End Sub
[SRC vba]