try this from a list of typed sheet names. Right click sheet tabview code.
copy/paste this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.DisplayAlerts = False
Dim WantedSheet As String
WantedSheet = Trim(ActiveCell.Value)
If WantedSheet = "" Then Exit Sub
On Error Resume Next
If Sheets(ActiveCell.Value) Is Nothing Then
GetWorkbook ' calls another macro to do that
Else
Sheets(ActiveCell.Value).Select
ActiveSheet.Range("a4").Select
End If
Application.DisplayAlerts = True
End Sub

--
Don Guillett
SalesAid Software

"kevin" wrote in message
...
I have a workbook with 30 plus tabs. is there a way to have a table of
contents with each tab name where the user can click on a name and be taken
to the sheet.