Below is the complete macro code...You will notice that 68,69,70 is redundant, those are the rows that I'm going to change each day just to display the data from sheet 'avg' into the textbox of the sheets chart 'D.I.', 'S.I.' and etc...What I need is to make the rows 68,69,70 to be replaced with variables that means open/close quotation mark "" property. I tried already the Eq-2 replaced with Eq-1 but didn't work, it remarks 'Unable to set the Formula property of the TextBox class'...I hope their is still another technique to make the textbox property be a variable...

Sub Update()

'

' Update Macro

' Macro recorded 2/19/2009 by Norman H. Ganancial

'

'

Dim x As String

Dim y As String

Dim z As String

'x = Sheets("avg").Cells(64, 1).Value '...Equation-1

x = "avg!a68" 'Equation-2

y = "avg!a69"

z = "avg!a70"

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 = "avg!bo68"

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

Selection.Formula = "avg!bo69"

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

Selection.Formula = "avg!bo70"

Sheets("S.I.new").Select

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

Selection.Formula = x

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

Selection.Formula = y

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

Selection.Formula = z

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

Selection.Formula = "avg!bn68"

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

Selection.Formula = "avg!bn69"

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

Selection.Formula = "avg!bn70"

Sheets("-5").Select

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

Selection.Formula = x

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

Selection.Formula = y

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

Selection.Formula = z

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

Selection.Formula = "avg!bj68"

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

Selection.Formula = "avg!bj69"

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

Selection.Formula = "avg!bj70"

Sheets("+5").Select

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

Selection.Formula = x

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

Selection.Formula = y

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

Selection.Formula = z

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

Selection.Formula = "avg!bi68"

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

Selection.Formula = "avg!bi69"

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

Selection.Formula = "avg!bi70"

Sheets("+10").Select

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

Selection.Formula = x

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

Selection.Formula = y

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

Selection.Formula = z

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

Selection.Formula = "avg!bh68"

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

Selection.Formula = "avg!bh69"

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

Selection.Formula = "avg!bh70"

Sheets("+50").Select

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

Selection.Formula = x

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

Selection.Formula = y

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

Selection.Formula = z

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

Selection.Formula = "avg!bg68"

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

Selection.Formula = "avg!bg69"

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

Selection.Formula = "avg!bg70"

Sheets("MMS").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 = "avg!bl68"

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

Selection.Formula = "avg!bl69"

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

Selection.Formula = "avg!bl70"

Sheets("LSF Size").Select

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

Selection.Formula = x

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

Selection.Formula = y

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

Selection.Formula = z

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

Selection.Formula = "avg!af68"

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

Selection.Formula = "avg!af69"

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

Selection.Formula = "avg!af70"

Sheets("FeO").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 = "avg!bt68"

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

Selection.Formula = "avg!bt69"

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

Selection.Formula = "avg!bt70"

Sheets("CaO").Select

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

Selection.Formula = x

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

Selection.Formula = y

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

Selection.Formula = z

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

Selection.Formula = "avg!ca68"

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

Selection.Formula = "avg!ca69"

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

Selection.Formula = "avg!ca70"

End Sub