If I change the x="avg!a68" to a Sheets("avg").Cells(68,1).Value so that rows and column became cells or assignable with variable, but it did not work.

Thanks....

Sub Update()

Dim x As String

Dim y As String

Dim z As String

x = "avg!a68"

y = "avg!a69"

z = "avg!a70"

x1 = "avg!bo68"

y1 = "avg!bo69"

z1 = "avg!bo70"

Sheets("D.I.").Select

ActiveChart.Shapes("Text Box 1").Select

Selection.Formula = x

ActiveChart.Shapes("Text Box 2").Select

Selection.Formula = y

ActiveChart.Shapes("Text Box 3").Select

Selection.Formula = z

ActiveChart.Shapes("Text Box 4").Select

Selection.Formula = x1

ActiveChart.Shapes("Text Box 5").Select

Selection.Formula = y1

ActiveChart.Shapes("Text Box 6").Select

Selection.Formula = z1