Bill

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
On Error GoTo endit
Application.EnableEvents = False
Select Case Target.Value
Case "1"
Sheets("Sheet1").Select
Case "2"
Sheets("Sheet2").Select
End Select
endit:
Application.EnableEvents = True
End Sub

This is sheet event code.

Right-click on the sheet tab and "View Code". Copy and paste into that module.

Adjust range and parameters to suit.


Gord Dibben MS Excel MVP

On Wed, 16 Aug 2006 07:11:02 -0700, Bill wrote:

I have a validation list on sheet 1 and I need the selection from that list
to take me to sheet 2 or sheet 3