for each cell in selection
cell.formula = "=" & cell.Value & "*B1"
Next

--
Regards,
Tom Ogilvy

wrote in message
oups.com...
I have this large worksheet and in the cells there is already a value
which I want to be able to multiply by a (currency) conversion factor.
I want to keep the original data,and be able to go back to teh
original, so copy- paste Special- multiply doesn't seem like a viable
option

I could manually add an equal sign at the beggining and "*b1" {the
conversion factor} but the number of cells makes this impractical. Is
there any clever way to add this kind of "switch"

an example would be

A B
1 DATA CONVERSION FACTOR {always cell B1)
2 123 0.789
3 234
4 456
5 678

Thank you very much