Hyperlink to Hidden/Unhidden Sheets with IF Condition

[Shelby21]

Need help with adding an IF condition for using hyperlink to view hidden or unhidden sheets.

In the image below, there are 3 tabs visible.
By default, the Instructions tab is always visible.
All other tabs becomes hidden or unhidden depending on if the active x checkbox is checked or not.

Below is the code I used for the active x checkboxes shown above to make each tab hidden or unhidden

In Wafer_Slip_DCP tab, column H has hand icons next to cells that are hyperlinked to other worksheets for spec reference.

For example, if you click on cell H11, this will display IR_Setup tab and take you to the row that references IR - Collapsible Hand Speed

This is the code I used for Wafer_Slip_Dcp tab to allow hyperlink to hidden or unhidden sheet:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim ShtName As String
    ShtName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1)
    Sheets(ShtName).Visible = xlSheetVisible
    Sheets(ShtName).Select
End Sub

Here is what I would like to do:

After clicking on cell H11 in Wafer_Slip_DCP tab this will unhide and take me to IR_Setup tab as long as IR_Setup is not already checked in Instructions tab.
If it is already checked in the Instructions tab checkbox, than the tab is not hidden and the hyperlink just takes me to that worksheet.
This part is already done and works fine.

I want to be able to select the Wafer_Slip_DCP tab and have IR_Setup tab hide itself automatically, but only if it is unchecked in Instructions tab active x checkbox.

If IR_Setup active x checkbox is checked already in the Instructions tab, then I want to be able to switch between Wafer_Slip_DCP tab and IR_Setup tab without the tab becoming hidden everytime I switch tabs.


I assume I need some sort of IF statement in the IR_Setup vba code, but am not sure how to write it.
Any help with this would be appreciated.

 

[Fluff]

How about

Private Sub Worksheet_Deactivate()
   If Sheets("Instructions").IR_setup.Value = True Then Exit Sub
   Me.Visible = xlSheetHidden
End Sub

 

[Shelby21]

How about

Private Sub Worksheet_Deactivate()
   If Sheets("Instructions").IR_setup.Value = True Then Exit Sub
   Me.Visible = xlSheetHidden
End Sub

Good morning Fluff,

Thank you for providing that code. It worked perfectly and was exactly what I was wanting to do

 

[Fluff]

You're welcome & thanks for the feedback.