Постройка графика на листе Excel - VB

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

следующим кодом пытаюсь построить график в экселевском файле на листе 'Grafics'

                    Листинг программы
                
 
                        
                          
                    
Set objWorksheet = objWorkbook.Sheets(2)
objWorksheet.Name = 'Grafics'
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets('Grafics').Range('A1'), PlotBy:=xlColumns
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = '=Results!R3C1:R118C1'
ActiveChart.SeriesCollection(1).Values = '=Results!R3C2:R118C2'
ActiveChart.Location Where:=xlLocationAsObject, Name:='Grafics'

но график почему-то строится на листе результатов('Results'). Подскажите в чем ошибка. И второй вопрос:что такое выключить/включить сообщения

                    Листинг программы
                
objExcel.DisplayAlerts = False/objExcel.DisplayAlerts = True

для чего это вообще нужно и куда их ставить в программе.

Решение задачи: «Постройка графика на листе Excel»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    Dim wsheet As Worksheet
    Dim Charts As ChartObjects
    Dim Chart As ChartObject
    Set wsheet = ActiveSheet
    wsheet.Name = 'Grafics'
    Set Charts = wsheet.ChartObjects
    Set Chart = Charts.Add(0, 0, 200, 200)
    With Chart.Chart
        .ChartType = xlXYScatterLines
        .SetSourceData Source:=Sheets('Grafics').Range('A1'), PlotBy:=xlColumns
        .SeriesCollection.NewSeries.XValues = Worksheets('Results').Range('B1:B5')
        .SeriesCollection.NewSeries = Worksheets('Results').Range('C1:C5')
        .Location Where:=xlLocationAsObject, Name:='Grafics'
    End With