If C433 is the same in each sheet would something like this work for you?



Sub CFourThirtyThree()

Dim X As Integer

X = Sheets.Count





While X <> 0



Sheets(X).Select

Range("C433").Select

ActiveCell.FormulaR1C1 = "=RevisedQ(TIS, SStat, DFact, ForceC, Weights,
MATCH(ForceT, TNames, 0))"

X = X - 1



Wend

End Sub