Command Button to open hidden sheet and close when de- selected

Hi There

I have a code below that I have on my index sheet. All my other sheets besides the INDEX sheet is hidden. As soon as i select the sheet name "Dashboard" on the index sheet hyperlinked to the "Dashboard" sheet it opens that sheet. When I click the index sheet again the open sheet "Dashboard" is hidden again

I want to change the code a bit and link it to a command button. The command buttons name will be DASHBOARD as soon as I select the command button I want want it to open the DASHBOARD sheet, when I then click the unhiden index sheet the DASHBOARD sheet will hide again

Could someone perhaps help me in the right direction

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice 20161109
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub
 
Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub