Erro de macro em gráfico

Bom dia!

Estou precisando de uma grande ajuda para corrigir um erro na macro de um gráfico.

A macro segue abaixo:

Sub Ano_2016()
'
' Ano_2016 Macro
'

'
   ActiveSheet.ChartObjects("Gráfico 1").Activate
   ActiveSheet.ChartObjects("Gráfico 1").Activate
   ActiveSheet.ChartObjects("Gráfico 1").Activate
  ActiveChart.SetSourceData Source:=Sheets("COMPARATIVO 2014 X 2015").Range( _
 "D137:G137,D162:G173")


End Sub

O erro é neste endereço:

  ActiveChart.SetSourceData Source:=Sheets("COMPARATIVO 2014 X 2015").Range( _
 "D137:G137,D162:G173")

A mensagem exibida está em anexo.

Caso não consiga acessar o anexo, a mensagem exibida é esta:

ERRO EM TEMPO DE EXECUÇÃO "40036":
ERRO DE DEFINIÇÃO DE APLICATIVO OU DE DEFINIÇÃO DE OBJETO

Quem puder me ajudar, agradeço muito.

Att.

Ola seja bem vindo ao forum.

Este é um forum de Ms Access, não é Excel.

Este tópico é movido para Off-Topic.

Olá JPaulo.

Desculpas.

Sou novato no fórum e não sabia como utilizá-lo para envio de dúvidas.

Obrigado pela atenção.