Sub UpdateChart()
Dim Ctype As String, X1Value As Range, Y1Value As Range
Dim ChartRange As Range
Application.ScreenUpdating = False
With Worksheets("Sheet1") 'change to suit
'loop charts
For cnt = .ChartObjects.Count To 1 Step -1
'delete chart
.ChartObjects(cnt).Chart.ChartArea.Select
Ctype = .ChartObjects(cnt).Chart.ChartType
ActiveWindow.Visible = False
.ChartObjects(cnt).Chart.Parent.Delete
'add new chart
'set new chart x values
Set X1Value = Sheets("Sheet1").Cells(1, 1)
'set new y values
Set Y1Value = Sheets("Sheet1").Cells(5, 2)
Set ChartRange = Sheets("Sheet1").Range(X1Value, Y1Value)
Charts.Add.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.ChartType = Ctype
ActiveChart.SetSourceData Source:=ChartRange, PlotBy:=xlColumns
Next cnt
End With
Application.ScreenUpdating = True
End Sub