Flash Screen

[Pondcroft13]

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

 

[Andrew Poulsom]

You need a single quote for a comment:

'Show the form modelessly

Not sure what character you have - probably from HTML.

 

[Pondcroft13]

Great Andrew - You were 100% correct - I did paste this from HTML - Great Spot.

Kind regards,

Chris