Hello,

I have two sets (paired) of 29 named cells (58 named cells total). In each
pair, I want to copy the contents from cell and paste it to the other.
Typically I'd think of a loop here and feed in each pair of cell names, but I
don't know how to do this in Excel VB.

Here's my current code for one pair.

Application.Goto Reference:="ModemStandardRent"
Selection.Copy
Application.Goto Reference:="BuildAModemStandardRent"
ActiveSheet.Paste
Application.CutCopyMode = False

Does anyone know of a way to handle this, other than pasting the above code
29 times and inserting each pair set of names?

Thank you in advance.

Carolyn

Is there a pattern in the names that can be detected?

otherwise

Dim v as Variant, v1 as Variant, i as long
v = Array("Name1", "Name2", "Name3", "ModemStandardRent", "Name4")
v1 = Array("Name1A", "Name2A", "House", "BuildAModemStandardRent", "Yard")

for i = lbound(v) to ubound(v)
range(v(i)).Copy Destination:=Range(v1(i))
Next



--
Regards,
Tom Ogilvy



"Carolyn" wrote in message
...
Hello,

I have two sets (paired) of 29 named cells (58 named cells total). In each
pair, I want to copy the contents from cell and paste it to the other.
Typically I'd think of a loop here and feed in each pair of cell names,
but I
don't know how to do this in Excel VB.

Here's my current code for one pair.

Application.Goto Reference:="ModemStandardRent"
Selection.Copy
Application.Goto Reference:="BuildAModemStandardRent"
ActiveSheet.Paste
Application.CutCopyMode = False

Does anyone know of a way to handle this, other than pasting the above
code
29 times and inserting each pair set of names?

Thank you in advance.

Carolyn

Tom,

Thank you very much. This works beautifully.

Incidently, no, currently the names are not in an "easy" pattern, though
there is a pattern. That said, I am the one who created the names, so if
there is a way to pattern them that will save me some programming, I would
love to know.

This discussion group forum is proving extremely valuable to me. Thank you
Tom for your time and participation!

Carolyn

"Tom Ogilvy" wrote:

Is there a pattern in the names that can be detected?

otherwise

Dim v as Variant, v1 as Variant, i as long
v = Array("Name1", "Name2", "Name3", "ModemStandardRent", "Name4")
v1 = Array("Name1A", "Name2A", "House", "BuildAModemStandardRent", "Yard")

for i = lbound(v) to ubound(v)
range(v(i)).Copy Destination:=Range(v1(i))
Next



--
Regards,
Tom Ogilvy



"Carolyn" wrote in message
...
Hello,

I have two sets (paired) of 29 named cells (58 named cells total). In each
pair, I want to copy the contents from cell and paste it to the other.
Typically I'd think of a loop here and feed in each pair of cell names,
but I
don't know how to do this in Excel VB.

Here's my current code for one pair.

Application.Goto Reference:="ModemStandardRent"
Selection.Copy
Application.Goto Reference:="BuildAModemStandardRent"
ActiveSheet.Paste
Application.CutCopyMode = False

Does anyone know of a way to handle this, other than pasting the above
code
29 times and inserting each pair set of names?

Thank you in advance.

Carolyn

if they were

name1 name1a

and the pairing was just the root name plus an A on the end and the names
all start with n (so you can have other names that don't for example)

Dim nm as Name, s as String
for each nm in Thisworkbook.Names
s = lcase(nm.name)
if left(s,1) = "n" and right(s,1) < "a" then
nm.ReferstoRange.Copy Destination:=Range(s & "a")
Next

so that is just an example pattern, but any pattern you can "solve" for.

--
Regards,
Tom Ogilvy

"Carolyn" wrote in message
...
Tom,

Thank you very much. This works beautifully.

Incidently, no, currently the names are not in an "easy" pattern, though
there is a pattern. That said, I am the one who created the names, so if
there is a way to pattern them that will save me some programming, I would
love to know.

This discussion group forum is proving extremely valuable to me. Thank you
Tom for your time and participation!

Carolyn

"Tom Ogilvy" wrote:

Is there a pattern in the names that can be detected?

otherwise

Dim v as Variant, v1 as Variant, i as long
v = Array("Name1", "Name2", "Name3", "ModemStandardRent", "Name4")
v1 = Array("Name1A", "Name2A", "House", "BuildAModemStandardRent",
"Yard")

for i = lbound(v) to ubound(v)
range(v(i)).Copy Destination:=Range(v1(i))
Next



--
Regards,
Tom Ogilvy



"Carolyn" wrote in message
...
Hello,

I have two sets (paired) of 29 named cells (58 named cells total). In
each
pair, I want to copy the contents from cell and paste it to the other.
Typically I'd think of a loop here and feed in each pair of cell names,
but I
don't know how to do this in Excel VB.

Here's my current code for one pair.

Application.Goto Reference:="ModemStandardRent"
Selection.Copy
Application.Goto Reference:="BuildAModemStandardRent"
ActiveSheet.Paste
Application.CutCopyMode = False

Does anyone know of a way to handle this, other than pasting the above
code
29 times and inserting each pair set of names?

Thank you in advance.

Carolyn