if you want to put a VALUE in the cell, use something like this
==============================
Sub PutValues()
Dim ws As Worksheet
Dim x As Integer

Set ws = ActiveSheet
With ws
For x = 1 To 7
.Cells(x, 1) = x
Next x
End With
End Sub
==============================

If you want to insert FORMULAS, use something like
==============================
Sub PutFormulas()
Dim ws As Worksheet
Dim x As Integer

With ws
For x = 1 To 7
.Cells(x, 1).Formula = "=2*" & x
Next x
End With
End Sub
==============================
"Biomed" wrote:

Excel 2000 SR-1

I am trying to write a VB code using a For - Next statement to calcualate
cells.
The basic satement is:

For X = 1 to 7
[A(x)] = {Calcualtion} ' Where A=Column and X = Row
Next X

Is there a correct way in VB code? This would greatly reduce the code I
would have to write otherwise.