Copy/Paste Range Reference

[ac_surf]

Hi all,

I'm trying to copy and paste the reference of a named range to another location.

Example:

Named range "teste" = (A1: E4), but is not alwasy fixed more rows may be added.

1) Copy reference only ("A1:E4") and paste in another location.

I have tried 2 different methods, but they do not work the way I need them to

1) It faults on the paste line, it seems there is nothing to be pasted

Application.Goto Reference:="Teste"
Range("a7").Select
ActiveCell.Paste

2) It does NOT do what I intend it to do. It always copies and pastes a fixed location and in case new rows/columns are added it will not capture it.

Application.Goto Reference:="ActBra10"
Windows("Monthly Template -2009 2.xls").Activate
Sheets("Input (2)").Range("S37").Select
ActiveCell.FormulaR1C1 = "='Base Calculo'!R1C1:R372C20"

Appreciate your help in solving this problem.

Regards

Alex

[Marcol]

Try using

Please Login or Register  to view this content.

for your named range, this will allow for extra rows

[ac_surf]

Try using

Please Login or Register  to view this content.

for your named range, this will allow for extra rows

and if I also want to allow extra columns? how would I fit in this code?


Thanks

[ac_surf]

To all that tried to help, I figured it out in another forum, below the solution

Application.Goto Reference:="Teste"

Range("A7").Value = Replace(Names("Teste").RefersTo, "=", "")

Thanks again