Is there a way to make a link to a specific tab in excel?

[Guest]

Is there a way to make a link to a specific tab in excel? I have a workbook
with many tabs and I want to make an first page that has links to go to
specific tab when clicked.

 

[Guest]

Pick a cell on the first page and right click - hyperlink - "place in this
document" and you will see a list of sheet names. your done.

Does that work?

Mike

 

[Dave Peterson]

Maybe you could use David McRitchie's Build Table of Contents to get the list
and the hyperlinks all at once:
http://www.mvps.org/dmcritchie/excel/buildtoc.htm

Another option if you want a more generic solution:
http://contextures.com/xlToolbar01.html
(From Debra Dalgleish's site.)

It builds a toolbar that you can use with any workbook to navigate to any
worksheet.

 

[Guest]

Say we start with Book1.xls and Sheet1.

In A1 enter:

=HYPERLINK("#Sheet2!A1","sheet2")

This will create a "jump-able" link to Sheet2.

BY THE WAY to jump back just use ALT-BACKARROW

 

[Don Guillett]

I use this in a menu workbook to goto a sheet or workbook if the name typed
in a cell.
Right click sheet tab>view code>insert this>type in the name(s) of your
sheets or use

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
Application.Goto Sheets(ActiveCell.Value).Range("a4")
End If
Application.DisplayAlerts = True
End Sub
Sub listsheets()
For i = 1 To Worksheets.Count
Cells(i, "a") = Sheets(i).Name
Next i
End Sub

 

[Gord Dibben]

Carlee
Can be done using hyperlinks but...............

How will you you get back to the sheet you came from?

I like Bob Phillips BrowseSheets macro which pops up a list of sheets to select
from.

Sub BrowseSheets()
Const nPerColumn As Long = 38 'number of items per column
Const nWidth As Long = 13 'width of each letter
Const nHeight As Long = 18 'height of each row
Const sID As String = "___SheetGoto" 'name of dialog sheet
Const kCaption As String = " Select sheet to goto"
'dialog caption


Dim i As Long
Dim TopPos As Long
Dim iBooks As Long
Dim cCols As Long
Dim cLetters As Long
Dim cMaxLetters As Long
Dim cLeft As Long
Dim thisDlg As DialogSheet
Dim CurrentSheet As Worksheet
Dim cb As OptionButton
Application.ScreenUpdating = False
If ActiveWorkbook.ProtectStructure Then
MsgBox "Workbook is protected.", vbCritical
Exit Sub
End If
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.DialogSheets(sID).Delete
Application.DisplayAlerts = True
On Error GoTo 0
Set CurrentSheet = ActiveSheet
Set thisDlg = ActiveWorkbook.DialogSheets.Add
With thisDlg
.Name = sID
.Visible = xlSheetHidden
'sets variables for positioning on dialog
iBooks = 0
cCols = 0
cMaxLetters = 0
cLeft = 78
TopPos = 40
For i = 1 To ActiveWorkbook.Worksheets.Count
If i Mod nPerColumn = 1 Then
cCols = cCols + 1
TopPos = 40
cLeft = cLeft + (cMaxLetters * nWidth)
cMaxLetters = 0
End If
Set CurrentSheet = ActiveWorkbook.Worksheets(i)
cLetters = Len(CurrentSheet.Name)
If cLetters > cMaxLetters Then
cMaxLetters = cLetters
End If
iBooks = iBooks + 1
.OptionButtons.Add cLeft, TopPos, cLetters * nWidth, 16.5
.OptionButtons(iBooks).text = _
ActiveWorkbook.Worksheets(iBooks).Name
TopPos = TopPos + 13
Next i
.Buttons.Left = cLeft + (cMaxLetters * nWidth) + 24
CurrentSheet.Activate
With .DialogFrame
.Height = Application.Max(68, _
Application.Min(iBooks, nPerColumn) * nHeight + 10)
.Width = cLeft + (cMaxLetters * nWidth) + 24
.Caption = kCaption
End With
.Buttons("Button 2").BringToFront
.Buttons("Button 3").BringToFront
Application.ScreenUpdating = True
If .Show Then
For Each cb In thisDlg.OptionButtons
If cb.Value = xlOn Then
ActiveWorkbook.Worksheets(cb.Caption).Select
Exit For
End If
Next cb
Else
MsgBox "Nothing selected"
End If
Application.DisplayAlerts = False
.Delete
End With
End Sub


Gord Dibben MS Excel MVP

 

[Guest]

Hi all,
I know this is an old post, but I if I can't find a solution, I may need to
try some of these answers in a work around. I was hoping by posting here
that you all may see my post. Please have a look and let me know if you have
a solution. Thanks.


http://www.microsoft.com/communitie...217e4df7c6cf&lang=en&cr=US&sloc=en-us&m=1&p=1