Right click sheet tabview codeinsert this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address Range("b1").Address Then Exit Sub
On Error GoTo newone
With Range("a2:b22")
.Name.Delete
newone:
.Name = Target
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Gadeyne Dries" Gadeyne wrote in message
...
Dear all,

Hope you can help me with the following.

I need to create a range (Dynamic range).
As all of you are awa Insert-Name-Define...
However, the name of my range needs to be dependent on the entry of a
certain cell.

For instance: If I type in B1 "Mercedes", then I want the name of my named
range to be "Mercedes".
If later on I need to change this for any reason to "BMW", then I need the
name of my named range to change as well to "BMW"..

Hope you guys can help me out with this.

I am using Excel 2003