Hi Syson,

'---------------
This is a bit shorter than Jims, but yours copies the "Text" in Col. "A"
and not the data from Col. "B" - any ideas why?
'---------------

Brevity of code and efficiency are not necessariliy synonymous.
Did you try Jim's suggested code.

As far as Rob's code is concened, try changing:

vText = ActiveCell

to

vText = ActiveCell.offse(0,1).Value


---
Regards,
Norman