Display Status Bar = True ' Takes averages of Sq Dev Range("M1").

Formula = "=AVERAGE(J11: J200000)"' ' Smoothed Estimate '' Sheets("Smoothed Estimate").

vba excel screenupdating false not working-80

Formula R1C1 = "=R[-1]C[-2] R[-1]C[-1]" Range("E3").

Formula R1C1 = "=POWER((ABS(RC[-1]-RC[-4])),2)" Range("F3").

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Range("C3").

Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Range("D3").

Formula R1C1 = "=R[-1]C[-2] R[-1]C[-1]" Active Cell.

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend"). Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average"). Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend"). Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average"). Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application. Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell. Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell. Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell.

Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

", Max Min Val:=2, Value Of:=0, By Change:="$K

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend"). Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average"). Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application. Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell. Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell. Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell.

Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

:$K", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend"). Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average"). Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application. Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell. Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell. Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell.

Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

:$K", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend"). Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average"). Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application. Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell. Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell. Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell.

Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

:$K", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend"). Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average"). Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application. Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell. Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell. Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell.

Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

", Max Min Val:=2, Value Of:=0, By Change:="$K

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend"). Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average"). Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application. Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell. Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell. Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell.

Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

:$K", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend"). Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average"). Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application. Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell. Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell. Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell.

Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

", Max Min Val:=2, Value Of:=0, By Change:="$K

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend"). Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average"). Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application. Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell. Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell. Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell.

Range("$I$2"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").

||

Paste Special Paste:=xl Paste All, Operation:=xl None, Skip Blanks:= _ False, Transpose:=False Sheets("Smoothed Estimate with trend").

Calculation = xl Calculation Automatic If Sheets("MSD"). Select ' ' ' ' Sheets("Moving Average").

Formula R1C1 = "=AVERAGE(R[2]C[-2]: R[200000]C[-2])" ' Solver Solver Solve User Finish:=True Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Add Cell Ref:="$K$1:$K$2", Relation:=1, Formula Text:="1" Solver Add Cell Ref:="$K$1:$K$2", Relation:=3, Formula Text:="0" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Ok Set Cell:="$H$1", Max Min Val:=2, Value Of:=0, By Change:="$K$1:$K$2", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application.

Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell.

:$K", _ Engine:=1, Engine Desc:="GRG Nonlinear" Solver Solve (True) Solver Solve User Finish:=True Application. Formula R1C1 = "=R1C11*RC[-1] (1-R1C11)*(R[-1]C R[-1]C[1])" Active Cell. Formula R1C1 = "=R2C11*(RC[-1]-R[-1]C[-1]) (1-R2C11)*R[-1]C" Active Cell. Range("$I"), 10, False, False, False End With' Calculates Sq Dev Dim lastrow As Long Dim i As Long Sheets("Moving Average").