You were missing a parethesis at the end. You also need R1C1 format for all
references to other cells.

Worksheets(Sh).Range("W:X").FormulaR1C1 = _
"=((RC[-19]+RC[-18])/Sheet1!R22C4*52)"


"Bob" wrote:

I've got the following macro and instead of dividing by 8 I would like to
divide by Sheet1!$D$22 and then multiply by 52. However when I put that in
place of the 8 I get a run time error. What am I missing?

-- For Each Sh In Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6",
"Sheet7", "Sheet8")
For X = 7 To 500
Worksheets(Sh).Range("W" & X).FormulaR1C1 = "=((RC[-19]+RC[-18])/8*52"
Next
Next
End Sub

Thanks.

Bob