Use VBA to name Ranges

[Guest]

Hi guys,
I recorded this macro..
ActiveWorkbook.Names.Add Name:="DATABASE2060", RefersToR1C1:= _
"='2060_DB'!R1C1:R8C9"

Now, I am trying to achieve the same result using VBA.

My code

Set LastCell = ActiveSheet.Range("I65536").End(xlUp)
SV_Code = 2060
Reference = "='" & SV_Code & "_DB!R1C1:" & LastCell.Address(ReferenceStyle:=xlR1C1)

ActiveWorkbook.Names.Add Name:="DATABASE2060", RefersToR1C1:= _
Reference

Running the vba code doesn't achieve the same result. Help guys

 

[Barrie Davidson]

On 2002-03-07 17:13, Anonymous wrote:
Hi guys,
I recorded this macro..
ActiveWorkbook.Names.Add Name:="DATABASE2060", RefersToR1C1:= _
"='2060_DB'!R1C1:R8C9"

Now, I am trying to achieve the same result using VBA.

My code

Set LastCell = ActiveSheet.Range("I65536").End(xlUp)
SV_Code = 2060
Reference = "='" & SV_Code & "_DB!R1C1:" & LastCell.Address(ReferenceStyle:=xlR1C1)

ActiveWorkbook.Names.Add Name:="DATABASE2060", RefersToR1C1:= _
Reference

Running the vba code doesn't achieve the same result. Help guys

Try this, I think it will do the trick.

Range("A1", Range("I65536").End(xlUp).Address).Name = "DATABASE2060"

Regards,

 

[Barrie Davidson]

Whoops, make that

Sheets("2060_DB").Range("A1", Sheets("2060_DB").Range("I65536").End(xlUp).Address).Name = "DATABASE2060"

 

[Guest]

Thanks That did the trick!