defined name with formula as source in VBA
Hi Stefi,
A little more than you requested but thought it might help you to understand
that a named cell/range is something you can use in lieu of a cell/range
address.
'The following is the recorded macro for inserting a name:-
Range("A1").Select
ActiveWorkbook.Names.Add Name:="MyName", _
RefersToR1C1:="=Sheet1!R1C1"
'Below is the above code which has been edited to name
'the active cell rather than a specified cell/range:-
ActiveWorkbook.Names.Add Name:="MyName", RefersToR1C1:=ActiveCell
'If you record selecting a range you get the following:-
Range("A1:D1").Select
'You can edit the above line to use the name
'in lieu of the cell address as follows:-
Range("MyName:D1").Select
'The following retrieves the value in the named cell:-
MyValue = Range("MyName")
MsgBox MyValue
'The following names a range of cells and retrieves
'the actual address of the range.
Range("A3:D3").Select
ActiveWorkbook.Names.Add Name:="MyNamedRnge", _
RefersToR1C1:="=Sheet1!R3C1:R3C4"
MyRange = Range("MyNamedRnge").Address
MsgBox MyRange
Regards,
OssieMac
|