For Each cell in selection
cell.value = cell.Value & "X"
Next cell

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"CCB AA" wrote in message
...
I have a column of numbers, 4 numbers to a cell. I want to add an X at
the
end of numbers in various cells. I double click on the cell, the curser
moves to the end of the number and I add an X. I move to the nexrt cell
down
and repeat. When I do this with a macro, instead of adding just the X, it
writes in the number from the first cell and the X. How do I do make the
macro only add a X to the current number?