#### ianfrancis56

##### New Member

- Joined
- Aug 10, 2011

- Messages
- 34

In an attempt to speed up a macro, I am trying to enter the formulas into the cells and have calculation set the manual, however, it seems Excel is still calculating each cell.

Code:

```
Application.Calculation = xlCalculationManual
.Range("I2:I" & h).Formula = _
"=Sum(Index(LinEst(Indirect(""$E$4:$E""&RC[-1])," & _
"Indirect(""$A$4:$D""&RC[-1]), True, False), 1, 1)*R3C4," & _
"Index(LinEst(Indirect(""$E$4:$E""&RC[-1])," & _
"Indirect(""$A$4:$D""&RC[-1]), True, False), 1, 2)*R3C3," & _
"Index(LinEst(Indirect(""$E$4:$E""&RC[-1])," & _
"Indirect(""$A$4:$D""&RC[-1]), True, False), 1, 3)*R3C2," & _
"Index(LinEst(Indirect(""$E$4:$E""&RC[-1])," & _
"Indirect(""$A$4:$D""&RC[-1]), True, False), 1, 4)*R3C1," & _
"Index(LinEst(Indirect(""E4:E""&RC[-1])," & _
"Indirect(""$A$4:$D""&RC[-1]), True, False), 1, 5))"
.Range("J2:J" & h).Formula = "=Index(LinEst(Indirect(""E4:E""&RC[-2])," & _
"Indirect(""A4:D""&RC[-2]), True, True), 3, 1)"
.Range("M2:M" & h).Formula = _
"=Sum(Index(LinEst(Indirect(""$F$4:$F""&RC[-1])," & _
"Indirect(""$A$4:$D""&RC[-1]), True, False), 1, 1)*R3C4," & _
"Index(LinEst(Indirect(""$F$4:$F""&RC[-1])," & _
"Indirect(""$A$4:$D""&RC[-1]), True, False), 1, 2)*R3C3," & _
"Index(LinEst(Indirect(""$F$4:$F""&RC[-1])," & _
"Indirect(""$A$4:$D""&RC[-1]), True, False), 1, 3)*R3C2," & _
"Index(LinEst(Indirect(""$F$4:$F""&RC[-1])," & _
"Indirect(""$A$4:$D""&RC[-1]), True, False), 1, 4)*R3C1," & _
"Index(LinEst(Indirect(""F4:F""&RC[-1])," & _
"Indirect(""$A$4:$D""&RC[-1]), True, False), 1, 5))"
.Range("N2:N" & h).Formula = "=Index(LinEst(Indirect(""E4:E""&RC[-2])," & _
"Indirect(""A4:D""&RC[-2]), True, True), 3, 1)"
```

Any insight? Thanks!