VBA to Hide/Unhide single Sheet

[thelostscott]

Hi all,

I'm in need of some help to get a sheet to Hide if visible and Unhide if hidden using a command button click.

I thought I could do something along the lines of:

Sub Hide_Unhide_Sheet1()
Application.ScreenUpdating = False
    If ActiveWorkbook.Sheets("Sheet1").Visible = xlVisible Then
    ActiveWorkbook.Sheets("Sheet1").Visible = xlSheetVeryHidden
    End If
    If ActiveWorkbook.Sheets("Sheet1").Visible = xlSheetVeryHidden Then
    ActiveWorkbook.Sheets("Sheet1").Visible = xlVisible
    End If 
Application.ScreenUpdating = True
End Sub

All this does though is keep it visible and doesn't do the hide bit.

Any ideas?

 

[Weaver]

If all you want to do is toggle, maybe

ActiveWorkbook.Sheets("Sheet1").Visible =not(ActiveWorkbook.Sheets("Sheet1").Visible )

Your code hides it with the first if, then unhides it with the second, so maybe if you need to use xlveryhidden, you could combine the 2 with if..then..else

 

[thelostscott]

Thanks for the reply, in the end I solved it with this:

Sub Hide_Unhide_Sheet1()
Application.ScreenUpdating = False
If ActiveWorkbook.Sheets("Sheet1").Visible = True Then
        ActiveWorkbook.Sheets("Sheet1").Visible = xlVeryHidden
    Else
        ActiveWorkbook.Sheets("Sheet1").Visible = True
        
End If
Application.ScreenUpdating = True
End Sub