Creating new defined names from a list of names and cell ranges

[bsevincmetu]

Hey there, I have searched through many web pages but I couldn't find an answer to my problem.

I have a sheet called TR01, I have "defined names" such as "TR01AccruedIncome,TR01AccruedIncomeCOL,TR01AccruedIncomeROW".

I have a list of names I've created like this from using Define Names-> Use in Formula -> Paste Names.

---

---

[TABLE="width: 357"]
<tbody>[TR]
[TD]TR01AccruedIncome[/TD]
[TD]='ARC BS'!$C$445:$R$467[/TD]
[/TR]
[TR]
[TD]TR01AccruedIncomeCOL[/TD]
[TD]='ARC BS'!$C$445:$R$445[/TD]
[/TR]
[TR]
[TD]TR01AccruedIncomeROW[/TD]
[TD]='ARC BS'!$C$445:$C$467[/TD]
[/TR]
</tbody>[/TABLE]


I'd like to create new defined names for TR02 sheet, based on this list with a change in reference names such as;

[TABLE="width: 357"]
<tbody>[TR]
[TD]TR02AccruedIncome[/TD]
[TD]='TART BS'!$C$445:$R$467[/TD]
[/TR]
[TR]
[TD]TR02AccruedIncomeCOL[/TD]
[TD]='TART BS'!$C$445:$R$445[/TD]
[/TR]
[TR]
[TD]TR02AccruedIncomeROW[/TD]
[TD]='TART BS'!$C$445:$C$467[/TD]
[/TR]
</tbody>[/TABLE]

Create from selection doesn't work since B column includes ranges, it brings the cells which my list is on. Is there any VBA/Excel solution for this?

Many thanks in advance,