I have text in cell A1. In B1, I want to create a named range = text in A1.
How would I write the code for that? Thanks.

Steve C

Range("B1").Name = Range("A1")

--

Vasant

"Steve C" wrote in message
...
I have text in cell A1. In B1, I want to create a named range = text in
A1.
How would I write the code for that? Thanks.

Steve C

Steve

Try something like this

Sub SetRngName()
ThisWorkbook.Names.Add Name:=Range("A1").Value, _
RefersTo:="=Sheet1!$B$1"
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS

"Steve C" wrote in message
...
I have text in cell A1. In B1, I want to create a named range = text in
A1.
How would I write the code for that? Thanks.

Steve C

Thanks! That works great!

"Vasant Nanavati" wrote:

Range("B1").Name = Range("A1")

--

Vasant

"Steve C" wrote in message
...
I have text in cell A1. In B1, I want to create a named range = text in
A1.
How would I write the code for that? Thanks.

Steve C