VBA: Hide and Unhide Problem

[bamaisgreat]

When I run the code below i always get a error. I just simply want to unhide sheet9 for 5 seconds then hide it and return back to sheet Burn.

  Sheets("Sheet9").Select
    ActiveWindow.SelectedSheets.Visible = True
    Application.Wait Now + TimeSerial(0, 0, 5)
    
  
   
    Sheets("Sheet9").Visible = False
    Sheets("BURN").Select
End Sub

 

[JoeMo]

When I run the code below i always get a error. I just simply want to unhide sheet9 for 5 seconds then hide it and return back to sheet Burn.

  Sheets("Sheet9").Select
    ActiveWindow.SelectedSheets.Visible = True
    Application.Wait Now + TimeSerial(0, 0, 5)
    
  
   
    Sheets("Sheet9").Visible = False
    Sheets("BURN").Select
End Sub

You're trying to select a sheet that is hidden. Why not:
Sheets("Sheet9").Visible = True to unhide it?

 

[shg]

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