Dear Gord,
I do have the names defined.
but i do not want to put events under specific names. the list changes. I
will add names and edit others.
what are my options?

Jared

"Gord Dibben" wrote:

Jared

Do you have the ranges named in InsertName Define?

You could use event code with the DV list in B1

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("B1")) Is Nothing Then Exit Sub
On Error GoTo endit
Application.EnableEvents = False
Select Case Target.Value
Case "peter"
Application.Goto Reference:="peter"
Case "paul"
Application.Goto Reference:="paul"
Case "mary"
Application.Goto Reference:="mary"
End Select
endit:
Application.EnableEvents = True
End Sub

If ranges are not named, just replace Application.Goto Reference:="peter" with

Sheets("Sheet2").Range("A1").Select

A lot of work if you have a great whack of names.


Gord Dibben MS Excel MVP