Need macro to copy a list of named cells between worksheets

[John]

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

 

[Bob Phillips]

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]

This suggestion moves the names in range Bob to the coresponding cell in
Lynne. I want the names in Bob & Lynne to be recognized as cell names and the
contents of eac named cell in list Bob be moved to the corresponding cell
named in Lynne. Ie., I need another level of indirection.

 

[John]

Duh! I figured it out myself. All I needed to do was replace the cell equate
line w/

Range(Range("newentry")(i)).Value = Range(cell).Value

and I get the needed level of indirection.