I would do this with putting the code below to the sheet where you have
the cell "d1".

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EXITSUB:
Select Case Range("$D$1").Value
Case "1"
Sheets(2).Select
Case "2"
Sheets(3).Select
End Select
EXITSUB:
End Sub

R,
mas


--
mas_detokyo


------------------------------------------------------------------------
mas_detokyo's Profile: http://www.excelforum.com/member.php...o&userid=26712
View this thread: http://www.excelforum.com/showthread...hreadid=401387