VBA: Unhide Very Hidden Sheet

[bamaisgreat]

I sheet 9 very hidden. How can i adjust code so it will run properly.
Thanks as always

Sub unhide_9()
'
' unhide_9 Macro
'
    With Worksheets("Sheet9")
        .Visible = xlSheetVisible
        .Select
        Application.Wait Now + #12:00:12 AM#
        Worksheets("BURN").Select
        .Visible = xlSheetHidden
    End With
    
End Sub

 

[Jonmo1]

code works for me..meaning it executes without any error.

It UNhides Sheet9
Selects Sheet9
Waits 12 seconds
selects BURN
Hides Sheet9


In what way does it not work for you?

 

[bamaisgreat]

The code is for the sheet if it is hidden
it is now veryhidden

 

[nalij]

If you want to unhide sheet 9 use

Sheets("Sheet9").Visible = True

Try this:

Sub Unhide_9()

  Sheets("Sheet9").Visible = True
  Application.Wait Now + #12:00:12 AM#
  Sheets("Burn").Visible = False

End Sub

 

[Jonmo1]

It is irrelevant if the sheet is currently visible hidden or veryhidden.
When you apply a visible property to a sheet, it doesn't matter what the current state the visible property is, it just does it.

 

[erik.van.geit]

Hi,

The original code you posted works for me wether it was hidden or very hidden.

.Visible = True
or
.Visible = xlSheetVisible

makes no difference for me
kind regards,
Erik

EDIT: for some reason didn't see jonmo1's post before submitting mine

 

[bamaisgreat]

oh ok, so will it put it back to the veryhidden state at the end of the code ??

Sub unhide_9()
'
' unhide_9 Macro
'
With Worksheets("Sheet9")
.Visible = xlSheetVisible
.Select
Application.Wait Now + #12:00:12 AM#
Worksheets("BURN").Select
.Visible = xlSheetHidden
End With

End Sub

 

[Jonmo1]

so are you asking for a way to put it back to whatever it was originally?

If at the beginning it was hidden, then at the end you want it hidden
If at the beginnign it was veryhidden, then at the end you want it veryhidden


Try

Sub unhide_9()
'
' unhide_9 Macro
'
Dim OrigState As Variant
    With Worksheets("Sheet9")
        OrigState = .Visible
        .Visible = xlSheetVisible
        .Select
        Application.Wait Now + #12:00:12 AM#
        Worksheets("BURN").Select
        .Visible = OrigState
    End With
    
End Sub

 

[bamaisgreat]

yes, the code showed it was only hidden. But I want change the entire module as if the sheet was veryhidden

 

[Jonmo1]

Are you just wanting to change it to

Sub unhide_9()
'
' unhide_9 Macro
'
    With Worksheets("Sheet9")
        .Visible = xlSheetVisible
        .Select
        Application.Wait Now + #12:00:12 AM#
        Worksheets("BURN").Select
        .Visible = xlVeryHidden
    End With
    
End Sub