Named ranges-How would I write the code for that?

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" <[email protected]> wrote in message
news:[email protected]...
> 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
[email protected]HIS

"Steve C" <[email protected]> wrote in message
news:[email protected]...
>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" <[email protected]> wrote in message
> news:[email protected]...
> > 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
>
>
>