Forum Discussion

NikolinoDE's avatar
NikolinoDE
Platinum Contributor
Jul 11, 2023

Re: need help with microsoft excel dashboard

akashpohal 

The second code snippet I provided was intended as an example for handling individual sheets with hyperlinks, rather than multiple sheets within a single line.

Here's the approach for handling multiple sheets with hyperlinks  (untested):

Sub FollowHyperlinksAndHideSheets()
    Dim HyperlinkSheet As Worksheet
    Dim TargetSheet As Worksheet
    Dim Hyperlink As Hyperlink

    ' Set the HyperlinkSheet to the sheet containing the hyperlinks
    Set HyperlinkSheet = ThisWorkbook.Sheets("SheetWithHyperlinks")

    ' Loop through each sheet to follow hyperlinks and hide the sheets
    For Each TargetSheet In ThisWorkbook.Sheets
        ' Skip the HyperlinkSheet itself
        If TargetSheet.Name <> HyperlinkSheet.Name Then
            ' Check if the TargetSheet has a hyperlink
            For Each Hyperlink In HyperlinkSheet.Hyperlinks
                If Hyperlink.SubAddress = "'" & TargetSheet.Name & "'!A1" Then
                    ' Unhide the TargetSheet temporarily
                    TargetSheet.Visible = xlSheetVisible
                    
                    ' Follow the hyperlink
                    Hyperlink.Follow
                    
                    ' Hide the TargetSheet again
                    TargetSheet.Visible = xlSheetHidden
                    
                    Exit For
                End If
            Next Hyperlink
        End If
    Next TargetSheet
End Sub

Modify the following line to match the sheet name containing the hyperlinks:

Set HyperlinkSheet = ThisWorkbook.Sheets("SheetWithHyperlinks")

This macro will loop through each sheet in the workbook, check for hyperlinks in the specified "HyperlinkSheet," follow the hyperlinks, and then hide the corresponding sheets. Make sure the hyperlinks are set up correctly with the format 'SheetName'!A1.

Please ensure that the names of your "HyperlinkSheet" and the sheet containing hyperlinks match the actual names in your workbook. The text, steps and code was created with the help of AI

I hope this updated code resolves the issue you were facing with the hyperlinks.

5 Replies

  • akashpohal's avatar
    akashpohal
    Copper Contributor
    Hello there,
    i really appreciate you helping me on this,
    i tried with this as well, still no luck

    https://we.tl/t-DeJfPht8if

    I have this file attached here via wetransfer, with the macro in them,
    other sheets are already hidden as per the Macros

    any advise here?

    Akash

Resources