MS OFFICE 2019 EXCEL VBA (Auto Hide every Sheets)

[mundas26]

Hello everyone!
Please help me to solve this problem. All i need is to hide all Sheets once i click the Main sheet. Here's my main sheets code.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
LinkTo = Target.SubAddress

WhereBang = InStr(1, LinkTo, "!")
If WhereBang > 0 Then
MySheet = Replace(Left(LinkTo, WhereBang - 1), "'", "")
Worksheets(MySheet).Visible = True
Worksheets(MySheet).Select
MyAdd = Mid(LinkTo, WhereBang + 1)
Worksheets(MySheet).Range(MyAdd).Select
End If
End Sub


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Worksheets("KSA VM MOVEMENT").Select
Target.Parent.Worksheet.Visible = False
End Sub

 

[rollis13]

You could add this event macro to the main sheet module. Once you click on the main sheet, all the other sheets will hide.

Private Sub Worksheet_Activate()
    Dim ws     As Worksheet
    For Each ws In Worksheets
        If ws.Name <> "KSA VM MOVEMENT" Then ws.Visible = False
    Next ws
End Sub