Making A Table of Contents

  • Thread starter robertstovertoronto
  • Start date
R

robertstovertoronto

Hello, I would like to make a table of contents. In the table of contents I
would like to link the headings to the locations throughout the sheets. For
example, if I were to click on the TOC Heading DATABASES.. it would take me
to the location in the sheets where all the database information is. Does
anyone know how to do this?

Thanks
 
D

Don Guillett

Here is one I use to goto a sheet/workbook desired. This idea can be used to
do what you like. Right click sheet tab>view code>copy/paste>modify to
suit>save workbook. Then double click on typed text in cell.

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
 
R

robertstovertoronto

Thanks Don! I appreciate it.

Cheers,


Don Guillett said:
Here is one I use to goto a sheet/workbook desired. This idea can be used to
do what you like. Right click sheet tab>view code>copy/paste>modify to
suit>save workbook. Then double click on typed text in cell.

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
Click to expand...
 
P

Preddy

Hi,

I have around 200 unique texts in each cell in Worksheet1.

I have the 200 uniques texts with their description & contents in worksheet2.

When I click the uniques text in worksheet1 I should be taken/focused to the
cell with the same text in Worksheet2 (Hyperlink or ToC)

Is there a function for this in Excel? rather than a macro ? This would be a
combination of VLOOKUP & HYPERLINK functions.

Thanks
 
Top