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