RunTime Error 13: Type MIsmatch

I receive runtime error 13: Type Mismatch with the following code:

For i = 5000 To 4 Step -1
Range(Cells(i, 10)).FormulaArray = WorksheetFunction.max(Range(Cells(3, 3), Cells(5000, 3)) = Cells(i, 3)) * Range(Cells(3, 21), Cells(5000, 21))
Next

Any help on this is much appreciated.

Tariq

Can't have 2 equal signs. Might be more issues, this is just the first one i saw

Range(Cells(i, 10)).FormulaArray = WorksheetFunction.max(Range(Cells(3, 3), Cells(5000, 3)) = Cells(i, 3)) * Range(Cells(3, 21), Cells(5000, 21))

You need to use R1C1 style references for formulaarray, not ranges. It also needs to be in a string format, so you need something like:
Activecell.formular1c1 = "=R1C1*R2C2"

I haven't checked what your max function will return, but I'm guessing it's not going to look like that.

Thank you, ill give ths a try...