Navigate Workbook by Clicking Cells

The below code and workbook is a simpler way to navigate a workbook by clicking indicated cells so I don't have to move my mouse down to the bottom of the workbook. Double click whatever sheet you want to add it to per below:

Name your sheets like the below:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row = 2 And Target.Column = 2 Then
    Cancel = True
    ThisWorkbook.Sheets("HOME").Visible = -1
    ThisWorkbook.Sheets("HOME").Activate
    End If
End Sub