if I have understood your question correctly, you want
something like the following:

dim c as Range, newText as String

newText = InputBox("Please enter text", .........)

For Each c in Selection.Cells
c.value = newText & c.value
next c

Regards, Andy Keen



-----Original Message-----

Can anyone help me please, i'm having difficulty solving
this...

I want to create a macro that will allow the user to
input text of
their choosing into a cell that already contains numbers,

ie I have a column full of product codes and i want to be
able to
select the cells and run a macro which will bring up a
box that will
allow the user to enter the text of their choosing and
when they click
ok will insert their text before the current numbers in
each of the
selected cells.

Any help would be much appreciated


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from
http://www.ExcelForum.com/

.