使用链接（而不是按钮）使用VBA还原到Excel中的上一个选项卡

Question

I have searched around for help but have been unsuccessful. I have found different codes to use a button on a worksheet to go back to the previous worksheet the user was on. What the company I work for wants are links on the top of almost each worksheet to function as a navigation pane for the users. I have created links at the top of the necessary sheets which all work as expected. I originally added code to my workbook to use a back link (previous sheet user was on, not the sheet before the current sheet) at cell "A5" and it worked for awhile but as I've been progressing on other items within the workbook, the code stopped working. I have compared the code on the working workbook with the nonworking workbook and they're the same and I don't believe other code is causing it to malfunction. Looking at the code below, does anyone have a suggestion for me?

On worksheets that will have a back button I have:

Option Explicit 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
 If Selection.Count = 1 Then
  If Not Intersect(Target, Range("A5")) Is Nothing Then 
   Call SelectLast 
  End If 
 End If
End Sub

In the ThisWorkbook object I have the following:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) 
  LastSheet = Sh.Name 
End Sub

Finally, I have the following in it's own module:

Public LastSheet As String 
Sub SelectLast() 
  Application.Sheets(LastSheet).Select 
End Sub

Any assistance would be greatly appreciated. Thanks!

Answer 1

Add a workbook-level name "LastSheet":

Then add this code in the ThisWorkbook module:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    'EDIT
    ThisWorkbook.Names("lastsheet").RefersToR1C1 = "='" & Sh.Name & "'!R1C1"
End Sub

For your "Previous sheet" hyperlinks use:

=HYPERLINK("#LastSheet","Previous sheet")

If you wanted to get fancy with your "back" link and show the destination sheet name in the link:

=HYPERLINK("#lastsheet",
            "<< back to - " & SUBSTITUTE(MID(CELL("address",lastsheet),1+
            FIND("]",CELL("address",lastsheet)),200),"!$A$1",""))

Answer 2

Craig, this should do the trick for you

I made a label look like a hyperlink & operate as one. I have basically stored the name of the sheet in the label's captions and have the workbook select the sheet that matches that text

Private Sub Label1_Click()
    Dim strLoc As String
    strLoc = Label1.Caption
    ThisWorkbook.Sheets(strLoc).Select
End Sub