Error de hoja como objeto

Holas, tengo un problema cuando llamo a una  subrutina, al dejar de llamarla debe seguir ejecutando las líneas de código siguientes pero cuando llega a la línea ActiveSheet.ChartObjects("Chart_Pipeline").Activate sale error porque no reconoce las propiedades de la hoja como objeto.
te agradeceeré un montón si me ayudas!
 aquí el código:
 Private Sub button_Actualiza_Pipeline_Click()
'Extrae info del Informe Comercial y Refresca la Tabla "Pivot_Pipeline" y Gráfico "Chart_Pipeline"
Application.ScreenUpdating = False
If MsgBox("¿Desea continuar con el proceso?", vbQuestion + vbYesNo, "Mensaje del Sistema") = vbYes Then
Call Actualizar_Pipeline
'esta subrutina abre un archivo excel y copia y pega datos en el archivo activo "Pipeline y Ventas"
PivotTables("Pivot_Pipeline").PivotCache.refresh
    With ChartObjects("Chart_Pipeline").Chart
    .ChartType = xlBarStacked
    .ChartArea.fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=4, _
        Degree:=0.345098039215686
    .ChartArea.fill.Visible = True
    .ChartArea.fill.ForeColor.SchemeColor = 15
    End With
    ChartObjects("Chart_Pipeline").Border.Weight = 1
    ChartObjects("Chart_Pipeline").Border.LineStyle = -1
    ChartObjects("Chart_Pipeline").RoundedCorners = True
    ChartObjects("Chart_Pipeline").Shadow = False
    ActiveSheet.ChartObjects("Chart_Pipeline").Activate
    ActiveChart.SeriesCollection(1).Select
    With selection.Border
    .Weight = xlThin
    .LineStyle = xlAutomatic
    End With