title: VBA - List of sheets (hyperlinked)
body: <p>I have an Excel-Workbook. In this workbook a new sheet is created via VBA.</p>
  
  <p>The more sheets this workbook has the more confusing is it, because I have to scroll a long time to reach any sheet in the middle.</p>
  
  <p>I want to create an overview-sheet </p>
  
  <ul>
  <li>in which the names of the sheets are listed AND</li>
  <li>the name of the sheets have to be hyperlinks.</li>
  </ul>
  
  <p>My code doesn't work at all - 
  BTW, I have to work with Excel 2003</p>
  
  <p>Here's what I have:</p>
  
  <pre><code>Sub GetHyperlinks()
      Dim ws As Worksheet
      Dim i As Integer
  
      i = 4
  
      ActiveWorkbook.Sheets("overview").Cells(i, 1).Select
  
      For Each ws In Worksheets
          ActiveWorkbook.Sheets("overwies").Hyperlinks.Add _
          Ancor:=Selection, _
          Address:="", _
          SubAddress:="'ws.name'", _
          TextToDisplay:="'ws.name'"
  
          i = i + 1
      Next ws
  End Sub
  </code></pre>