With Worksheets("Sheet1").ChartObjects(1).Chart .HasTitle = True .ChartTitle.Text = "TÍTULO DO GRÁFICO" End With