Here's an example

Dim cell As Range
Dim i As Long
For Each cell In Range("Bob")
i = i + 1
Range("Lynne")(i).Value = cell.Value
Next cell


--

HTH

RP
(remove nothere from the email address if mailing direct)


"John" wrote in message
...
I have a workbook containing a worksheet that has a bunch of company info
and
another that contains new info to replace the old info. Cells on each
sheet
are in different locations, but are named and I have a table of from/to
names
off to the side in a worksheet that I update occasionally when new info is
added. How do I write a macro that will copy all of the FROMNAMES column
cell
name contents to the corresponding cell name in the TONAMES column?

... X Y
.
22 FROMNAMES TONAMES
23 newcompany company
24 newcontact contact
25 newphone phone
26 newfax fax
27 newemail email