Hide tab if not hidden - unhide if tab is hidden and go to

[gheyman]

I have code that is triggured by a button that will hide or unhide a tab. What I need is if the tab is hidden when the button is click it not only unhides but it also activates that sheet/tab

Sub SeeBOE()
With Sheet5
   .Visible = Not .Visible
End With

End Sub

Thank you for your help

 

[Fluff]

How about

Sub SeeBOE()
With Sheet5
   If .Visible Then
      .Visible = xlSheetHidden
   Else
      .Visible = xlSheetVisible
      .Activate
   End If
End With

End Sub

 

[dmt32]

Hi,
try this update to your code

Sub SeeBOE()
    With Sheet5
       .Visible = Not .Visible
       If .Visible Then .Activate
    End With
End Sub

Dave

 

[Joe4]

Just add one line:

Sub SeeBOE()

With Sheet5
   .Visible = Not .Visible
End With

If Sheet5.Visible = True Then Sheet5.Activate

End Sub

 

[gheyman]

Thank you, all. Each worked,

 

[Fluff]

Glad we could help & thanks for the feedback.