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
Bookmarks