windsurfit
Board Regular
- Joined
- Mar 27, 2003
- Messages
- 228
Below is the code for having excel open to a specific sheet, in this case it is named "cover".
I have used this design similar to a splash screen whereby I have the code:
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:03"), "KillTheForm"
End Sub
My question is how to place this same type of time delay so that it slows down the "cover" sheet on my code below for a few seconds before hiding this sheet & opening my "working" sheets. This initial "cover" sheet has instructions that need more time for viewing & right now the more powerfull the computer the faster this "cover" opens and then hides.
BTW-I do not have any splash screen in this program so I need to place a form of this TimeValue into this code below:
Suggesions?
Private Sub UnhideSheets()
Dim sht As Object
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Sheets
sht.Visible = xlSheetVisible
Next sht
ThisWorkbook.Sheets("cover").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub
I have used this design similar to a splash screen whereby I have the code:
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:03"), "KillTheForm"
End Sub
My question is how to place this same type of time delay so that it slows down the "cover" sheet on my code below for a few seconds before hiding this sheet & opening my "working" sheets. This initial "cover" sheet has instructions that need more time for viewing & right now the more powerfull the computer the faster this "cover" opens and then hides.
BTW-I do not have any splash screen in this program so I need to place a form of this TimeValue into this code below:
Suggesions?
Private Sub UnhideSheets()
Dim sht As Object
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Sheets
sht.Visible = xlSheetVisible
Next sht
ThisWorkbook.Sheets("cover").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub