Sub LinkSheets()
      Dim myRange As range
      Dim lastCell As Object
      Dim lastLoop As Boolean
      Dim sheetNumber As Integer
  
      'find the last cell so we know when to stop.
      With ActiveSheet
          Set lastCell = .Cells(.Rows.Count, "A").End(xlUp)
      End With
  
      'Select the row in the first worksheet that I want.
      range("A:A").Select
  
      For Each cell In Selection
          If lastLoop Then
              Exit For
          Else
              If cell.Value = lastCell Then
                  lastLoop = True
              End If
  
              'Make sure I am not trying to link the worksheet header to
   another worksheet.
              'All good titles will have a dash.
              If InStr(1, cell.Value, "-")  0 Then
                  Cells.Find(What:=cell.Value, After:=ActiveCell,
   LookIn:=xlValues, _
                      LookAt:=xlPart, SearchOrder:=xlByColumns,
   SearchDirection:=xlNext, _
                      MatchCase:=False, SearchFormat:=False).Activate
  
                  Dim workSheetCount As Integer
                  Dim x As Integer
                  workSheetCount = ActiveWorkbook.Worksheets.Count
  
                  'Get stuck here trying to go to the next sheet and 
   search
   for my title
                  'to see if this is the corresponding sheet I need for 
   this
   title.
                  For x = 1 To workSheetCount
                      ActiveWorkbook.Sheets(x).Select
                      Cells.FindNext(After:=ActiveCell).Activate
                  Next
  
                  'Once I do find the correct sheet, I hope this will 
   create
   the hyperlink I want
                  ActiveSheet.Hyperlinks.Add Anchor:=cell, _
                      Address:="", SubAddress:=ActiveCell.Address,
   TextToDisplay:=cell.Value
  
                  'Then I want to create a "back" hyperlink to take the 
   user
   back to the
                  'master page (first page).
              End If
          End If
      Next cell
   End Sub