Try Putting this into the Immediate Window:
x = 1
Do Until x = 201
Activesheet.Cells(x, 1).Formula = "=Sum(B1:B200)*Sum(C1:C200)"
x = x + 1
Loop

Jason Zischke

"Jim May" wrote:

On Sheet1 (activesheet) I have numbers in Range B1:C200.

In the immediate window I've entered:

Activesheet.Range("A:A").Formula = (Range("B1:B200") * Range("C1:C200"))

When I press enter I get a run-time error 13, type mismatch
Noting gets into Col A (which shoud be the product of
B * C (according to each row.

What am I doing wrong?