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