openen bestand

[mtb]

olla,

als onderstaande formule word opgestart krijg ik een fractie van 1 sec blad 'week 29' te zien voordat hij naar blad startpagina gaat, ziet er niet gladjes uit als je het bestand opent opent, iemand suggesties.

Private Sub Workbook_Open()

Sheets("startpagina").Visible = True
Sheets("startpagina").Activate
MsgBox ("press OK to enter the game zone")
Sheets("startpagina").Visible = False
Sheets("week 29").Activate

End Sub


thanks

 

[Withaar]

Deze even onder je eigen code zetten.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("startpagina").Activate
End Sub

 

[mtb]

withaar,


werkt uitstekend, thanks

:thumb: :thumb: :thumb:


wat doet jouw toevoeging nu extra? dit om een beter inzicht te krijgen .