Necesito aplicar esta macro a varios gráficos que se encuentran en la misma hoja excel >

Sub graficos()

Application.ScreenUpdating = False

Dim graf As Excel.Chart

Dim Pto As Long

Dim Val As Variant

Dim nombrehoja, rangocelda As String

nombrehoja = ActiveSheet.Name rangocelda = ActiveCell.Address
ActiveSheet.ChartObjects("Chart 3").Activate

With ActiveChart.SeriesCollection(1)

Val = .Values

For Pto = 1 To UBound(Val)

If Val(Pto) <= 150 Then

.Points(Pto).Interior.Color = RGB(0, 255, 0)

Else: .Points(Pto).Interior.Color = RGB(255, 0, 0)

End If

Next Pto

End With

heets(nombrehoja).Range(rangocelda).Select

End Sub