go to tools-macro-visual basic editor. double click sheet1 ,sheet
.... and paste the below code.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo interrupt
Worksheets(Target.Value).Select
interrupt:
End Su

--
anilsolipura
-----------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...fo&userid=1627
View this thread: http://www.excelforum.com/showthread.php?threadid=32011