Hi All,
Using Excel 2003 with XP. I am learning quite a bit about range names
as applied on the sheets with the help of many of you MVPs. But... i
am trying to learn how to manipulate with VBA. Below is the code
which kind of works having created the range name first. I would like
to work with strings and dates and numerics and am getting really
stuck. Maybe even if u could point me to a website. Thks. Rgds KZ.

Sub tryRN_FirstNames()
Dim sFN
sFN = Names.Item("rnFName")
MsgBox sFN

sFN = "XYZ"
Names.Item("rnFName").RefersTo = sFN
sFN = Names.Item("rnFName")
MsgBox sFN

sFN = "ABC"
Names.Item("rnFName").RefersTo = sFN
sFN = Names.Item("rnFName")
MsgBox sFN
End Sub

See http://www.xldynamic.com/source/xld.Names.html#vba

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Kieranz" wrote in message
oups.com...
Hi All,
Using Excel 2003 with XP. I am learning quite a bit about range names
as applied on the sheets with the help of many of you MVPs. But... i
am trying to learn how to manipulate with VBA. Below is the code
which kind of works having created the range name first. I would like
to work with strings and dates and numerics and am getting really
stuck. Maybe even if u could point me to a website. Thks. Rgds KZ.

Sub tryRN_FirstNames()
Dim sFN
sFN = Names.Item("rnFName")
MsgBox sFN

sFN = "XYZ"
Names.Item("rnFName").RefersTo = sFN
sFN = Names.Item("rnFName")
MsgBox sFN

sFN = "ABC"
Names.Item("rnFName").RefersTo = sFN
sFN = Names.Item("rnFName")
MsgBox sFN
End Sub

On Mar 5, 4:16 pm, "Bob Phillips" wrote:
Seehttp://www.xldynamic.com/source/xld.Names.html#vba

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Kieranz" wrote in message

oups.com...

Hi All,
Using Excel 2003 with XP. I am learning quite a bit about range names
as applied on the sheets with the help of many of you MVPs. But... i
am trying to learn how to manipulate with VBA. Below is the code
which kind of works having created the range name first. I would like
to work with strings and dates and numerics and am getting really
stuck. Maybe even if u could point me to a website. Thks. Rgds KZ.

Sub tryRN_FirstNames()
Dim sFN
sFN = Names.Item("rnFName")
MsgBox sFN

sFN = "XYZ"
Names.Item("rnFName").RefersTo = sFN
sFN = Names.Item("rnFName")
MsgBox sFN

sFN = "ABC"
Names.Item("rnFName").RefersTo = sFN
sFN = Names.Item("rnFName")
MsgBox sFN
End Sub


Many thks Bob.
Rgds KZ