macros para hacer varios graficos de una base de datos

[yerkaso]

hola, excelentísimas personas de este magno Foro estoy recién aprendiendo a usar BVA y estoy tratando de hacer una macros que me permita hacer varios gráficos con su pestaña correspondiente, y que las pestañas queden nombradas con el valor de referencia de la celda que contiene el nombre, para esto grabé la macros realizando uno de los gráficos con el cual estoy modificando, el plan era cambiar la direccionamiento de que trae por defecto ej. "=Hoja1!$Z$1" para usar los objetos Range y celda, conseguí que reconociera el rango pero cuando profundizo con las cells me tirar error de objeto, les pido que me digan en que me estoy equivocando, para poder seguir avanzando por favor....!!!

ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select

ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=Sheets("Hoja1").Cells(2, 1)

ActiveChart.SeriesCollection.NewSeries

'ActiveChart.FullSeriesCollection(1).Name = "=Hoja1!$Z$1"

' ActiveChart.FullSeriesCollection(1).XValues = "=Hoja1!$AR$2:$BE$2"

' ActiveChart.FullSeriesCollection(1).Values = "=Hoja1!$Z$2:$AC$2"

ActiveChart.FullSeriesCollection(1).Name = Sheets("Hoja1").Cells(1, 22)

'ActiveChart.FullSeriesCollection(1).XValues = Worksheets("Hoja1").Range("AR2:BE2")

ActiveChart.FullSeriesCollection(1).XValues = Sheets("Hoja1").Range(Cells(2, 44), Cells(2, 57)) <--------- problema

ActiveChart.FullSeriesCollection(1).Values = Sheets("Hoja1").Range("Z2:AC2")

ActiveChart.SeriesCollection.NewSeries

ActiveChart.FullSeriesCollection(2).Name = "=Hoja1!$AD$1"

ActiveChart.FullSeriesCollection(2).XValues = "=Hoja1!$AR$2:$BE$2"

ActiveChart.FullSeriesCollection(2).Values = "=Hoja1!$AD$2:$AG$2"

ActiveChart.SeriesCollection.NewSeries '-------------------------------------

ActiveChart.FullSeriesCollection(3).Name = "=Hoja1!$AH$1"

ActiveChart.FullSeriesCollection(3).XValues = "=Hoja1!$AR$2:$BE$2"

ActiveChart.FullSeriesCollection(3).Values = "=Hoja1!$AH$2:$AK$2"

ActiveChart.SeriesCollection.NewSeries '-------------------------------

ActiveChart.FullSeriesCollection(4).Name = "temporal"

ActiveChart.FullSeriesCollection(4).XValues = "=Hoja1!$AR$2:$BE$2"

ActiveChart.FullSeriesCollection(4).Values = "=Hoja1!$BF$2:$BS$2"

End Sub