Atualizar Gráfico Com Códigos Excel VBA

[@orlandopaiva8530]

Muito bom. Parabéns.

[@CanalSGP]

Obrigado 👍

[@joaomoraisotavio6011]

Professor meu Loop não tá funcionando, verifica por favor se errei alguma linha de código ou algo do tipo, pois quando eu mudo na ComboBox o Gráfico não atualiza.
Segue linha de código
Private Sub ComboBox1_Change()
On Error GoTo Erro
Dim PlanGrafico, Titulo, AreaDados, AreaRotulo As String
PlanGrafico = Planilha2.Name
Dim Grafico As Chart
Set Grafico = Sheets(PlanGrafico).ChartObjects("Gráfico 1").Chart
Dim Linha As Double
Linha = 4
With Planilha1
Do

Linha = Linha + 1

Loop Until .Cells(Linha, 2).Value = ""
End With
Linha = Linha - 1
If ComboBox1.Value = "QTD" Then

Titulo = Planilha1.Range("C4").Value
AreaRotulo = "=" & Planilha1.Name & "!" & Planilha1.Range("B5:B" & Linha).Address
AreaDados = "=" & Planilha1.Name & "!" & Planilha1.Range("C5:C" & Linha).Address
With Grafico
.HasTitle = True
.ChartTitle.Text = Titulo
.SeriesCollection(1).XValues = AreaRotulo
.SeriesCollection(1).XValues = AreaDados
End With

End If

If ComboBox1.Value = "VALOR" Then
Titulo = "VALOR"
AreaRotulo = "=" & Planilha1.Name & "!" & Planilha1.Range("B5:B" & Linha).Address
AreaDados = "=" & Planilha1.Name & "!" & Planilha1.Range("D5:D" & Linha).Address
With Grafico
.HasTitle = True
.ChartTitle.Text = Titulo
.SeriesCollection(1).XValues = AreaRotulo
.SeriesCollection(1).XValues = AreaDados
End With

End If
Call Carregar_Gráfico
Exit Sub:
Erro:
MsgBox "Erro", vbCritical, "ERRO"
End Sub

[@CanalSGP]

Boa noite, deixe seu e-mail que envio a planilha para que possa comparar.

[@joaomoraisotavio6011]

@@CanalSGP [e-mail]

[@joaomoraisotavio6011]

@@CanalSGP te agradeço professor, assim que eu comparar volto aqui

[@CanalSGP]

Bom dia, planilha enviada.

[@joaomoraisotavio6011]

@@CanalSGP Bom dia! Já rodei o código todo e não conseguir localizar, eu respondi o seu e-mail com a Planilha que eu fiz, poderia verificar por favor?