Hi ,

I would like to add one, to the column of an original defined name, so as to
move the defined cell along one space, using the ActiveWorkbook.Names.Add
function. I'm trying to create a variable to get the original cell reference
and then just add one to the column reference, using the function above. How
do I do this?

Kind regards and thanks in advance

Jeff

set rng = ActiveWorkbook.Names("MyName").RefersToRange
' now expand by one column
rng.Resize(,rng.columns.count+1).Name = "MyName"

'if you want to move the range over 1 columns

set rng = ActiveWorkbook.Names("MyName").RefersToRange
rng.offset(0,1).Name = "MyName"

--
Regards,
Tom Ogilvy

"Mr Cockles" wrote in message
...
Hi ,

I would like to add one, to the column of an original defined name, so as
to
move the defined cell along one space, using the ActiveWorkbook.Names.Add
function. I'm trying to create a variable to get the original cell
reference
and then just add one to the column reference, using the function above.
How
do I do this?

Kind regards and thanks in advance

Jeff

Thank you Tom. I'll have a try with this.

"Tom Ogilvy" wrote:

set rng = ActiveWorkbook.Names("MyName").RefersToRange
' now expand by one column
rng.Resize(,rng.columns.count+1).Name = "MyName"

'if you want to move the range over 1 columns

set rng = ActiveWorkbook.Names("MyName").RefersToRange
rng.offset(0,1).Name = "MyName"

--
Regards,
Tom Ogilvy

"Mr Cockles" wrote in message
...
Hi ,

I would like to add one, to the column of an original defined name, so as
to
move the defined cell along one space, using the ActiveWorkbook.Names.Add
function. I'm trying to create a variable to get the original cell
reference
and then just add one to the column reference, using the function above.
How
do I do this?

Kind regards and thanks in advance

Jeff