Is this a macro what you would like to do?


Dim increase As Integer
Dim j As Integer

increase = Range("H1")

For j = 1 To 10
Range("B" & j).Value = Range("A" & j).Value * increase
Next


--
Samura


"jeffP" wrote in message
...
Hello all,
Another simple question. What I want do here is do this
formula down through column B. B1 would be A1*increase, B2
would be A2*increase, etc.
I know this is simple enough to do in Excel but.... I'm
trying to learn VBA.


dim increase as integer
increase = Range("H1")

For Each c In Sheets("sheet1").Range("A1:A10")

c.Value = Range("B1") * increase
Next c