Doug,

Thank you very much.

Does the statement Range("A65536") mean the last row in
the worksheet? Can I customize that to the ending row I
want it to be?

And, the .End(x1up) statement is confusing to me.
Could you explain why that is needed, please?

Again, thank you.

Sherri

-----Original Message-----
Assuming your data begins in A1 and the constant is 2
this would do what you
want:

Sub test()

Dim r As Range

For Each r In Range("A1", Range("A65536").End(xlUp))
r.Value = r.Value * 2
Next r

End Sub

"Sherri Baker" wrote in
message
...
I would like to take a column of cells, traverse
through
them, multiply the number in each cell by a constant
value, and return the result into the same cell.

Any help will be greatly appreciated.


.