Doug,

Thank you for explaining that to me. And, thank you again
for the help.

Sherri
-----Original Message-----
Sherri,

Range("A65536").End(xlUp) means the last non-empty cell
in the column. It's
saying start at the last row (65536) and go up to the
first cell with
contents (the "end"). This just the second part of the
larger range
statement Range("A1", Range("A65536").End(xlUp)), which
translates to "A1
through the last non-empty cell." If the range you're
looking at will
always be the same, you could use something like Range
("A1:A20"):

Sub test()

Dim r As Range

For Each r In Range("A1:A20")
r.Value = r.Value * 2
Next r

The first way is more flexible, because it will do all
the non-empty cells
in the column, assuming that's what you want.

hth,

Doug

End Sub
"Sherri" wrote in message
...
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.


.



.