Pondcroft13
New Member
- Joined
- May 27, 2010
- Messages
- 32
Hi All,
Any idea what may be wrong with the code I am using below. The items below showing red are what are showing red in Visual Basic so I am guessing this is where the issue is.
Private Sub Workbook_Open()
'open at a sheet (and range) you want regardless
'of whether or not the sheet has been renamed
'Set the sheet to open (use its codename here)
Const StartUpSheet = "Dynamic UI"
'Set the cell to activate
Const StartUpCell = "A1"
Dim N&
For N = 1 To Sheets.Count
If Sheets(N).CodeName = StartUpSheet Then
Sheets(N).Activate
Range(StartUpCell).Activate
Exit For
End If
Next
Dim frmSplash As GPUActionsLog
‘Show the form modelessly
Set frmSplash = New GPUActionsLog
frmSplash.Show vbModeless
‘Process the startup code
Application. Wait Now + TimeValue(“00: 00: 5”)
‘Unload the splash screen
Unload frmSplash
Set frmSplash = Nothing
End Sub
Kind regards,
Chris
Any idea what may be wrong with the code I am using below. The items below showing red are what are showing red in Visual Basic so I am guessing this is where the issue is.
Private Sub Workbook_Open()
'open at a sheet (and range) you want regardless
'of whether or not the sheet has been renamed
'Set the sheet to open (use its codename here)
Const StartUpSheet = "Dynamic UI"
'Set the cell to activate
Const StartUpCell = "A1"
Dim N&
For N = 1 To Sheets.Count
If Sheets(N).CodeName = StartUpSheet Then
Sheets(N).Activate
Range(StartUpCell).Activate
Exit For
End If
Next
Dim frmSplash As GPUActionsLog
‘Show the form modelessly
Set frmSplash = New GPUActionsLog
frmSplash.Show vbModeless
‘Process the startup code
Application. Wait Now + TimeValue(“00: 00: 5”)
‘Unload the splash screen
Unload frmSplash
Set frmSplash = Nothing
End Sub
Kind regards,
Chris
Last edited: