Sub AddText()
For Each cell In selection
cell.Value = "cell.value & "more text"
Next cell
End SUb

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"superkopite"
wrote in message
...

Hiya guys and gals,

How can I create a Macro that when i select a range of sells will add a
predifined text to the end of the text already in each selected cell.

I konw this is possible and have tried lots of variants of code, all
turning out to be incorrect.

Kind Regards

James


--
superkopite
------------------------------------------------------------------------
superkopite's Profile:
http://www.excelforum.com/member.php...o&userid=29496
View this thread: http://www.excelforum.com/showthread...hreadid=515405