Add text to cell

[superkopite]

Hiya guys and gals,

How can I create a Macro that when i select a range of sells will add
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, al
turning out to be incorrect.

Kind Regards

Jame

 

[Bob Phillips]

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" <[email protected]>
wrote in message
news:[email protected]...

 

[superkopite]

Thanks a lot Bob

There was an extra " in there but when i removed it it worke
fantastically

Cheers

Jame

 

[Bob Phillips]

so there was, sorry about that.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"superkopite" <[email protected]>
wrote in message
news:[email protected]...