Dim cell As Range
For Each cell In Selection
cell.Value = "123" & cell.Value
Next cell


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Biff" wrote in message
...
I removed one set of "" and it works if I select a single cell but I want
to
do this for a range of cells.

Instead of doing this:

="123"&A1

copy down, then copypaste specialvalues, then drag to column A.

Thanks!

Biff

"Niek Otten" wrote in message
...
Using " instead of "" it works fine for me

--
Kind regards,

Niek Otten

"Biff" wrote in message
...
Hi Folks!

Trying to figure out how to concatenate a string to each cell in a
range
of cells.

I tried this:

Selection.Value = ""123"" & Selection.Value

Of course that did not work!

I guess VBA concatenation is different from worksheet concatenation.

Thanks!

Biff