Thanks for the information. One question, does this replace the formula in
cell B1, because I'm not sure what the w2 means?
--
Howard


"Patrick Molloy" wrote:

something simplistic to replace the formula...

for rw = 1 to 10
if cells(rw,2)<"" then
cells(rw,2).Value = cells(rw,2).Value
next



"Howard" wrote:

I have a range of cells (ie. A1:A5) which can contain names. In cell B1:B5.
I use VLOOKUP to find the name in a table, and insert the value to the right
of the name in the table into the active cell, (ie B1). The only problem is
that later, the user will want to copy and paste the value in cell B1 to
somewhere else on the spreedsheet. I can have the user copy and past
special, but this requires too much thought on the part of the user.

I'm looking for some code that will take the active cell, (B1), and say:
Use the name to the left of the active cell,
Find the name in the table,
Take the value to the right of the name in this table
Paste in into cell B1 as a value, (not a formula).

active cell table
A1 B1 C1 D1
-------------------------------------------------------------
Jones 101 Jones 101
Smith 201
White 301

Now the user could copy and paste without using past special.
--
Howard