Copy and rename named cells in a sheet to another sheet

[rstuart]

Is there some simple VBA code that will allow me to:

copy the 'names' in the name manager referring to cells in worksheet one and offset those names with a text prefix (i.e. tab2'cellname') and apply these new names to identical ranges in worksheet two?

Any help appreciated.

[Bob Phillips]

[vba]

Dim nme As Name

Set nme = ActiveWorkbook.Names("cellName")
ActiveWorkbook.Names.Add Name:="tab2" & nme.Name, _
RefersTo:="=Sheet2!" & Right$(nme.RefersTo, Len(nme.RefersTo) - InStr(nme.RefersTo, "!"))
[/vba]

[rstuart]

as a very novice user of VBA (almost none) - how would I apply this code in the workbook I wish to copy named cells inside of?

What parts of the code do I input values to so it works?

Thanks :-)

[Bob Phillips]

Just create a simple macro, changes the strings to your values and run it.