Macro starten bij openen bestand

[LennartRoest]

Beste lezers,

Na wat zoekwerk ben ik er nog niet helemaal uitgekomen. In de bijlage staat mijn bestand.

Ik heb een countdowntimer gemaakt die ik met een macro automatisch wil laten starten als het bestand wordt geopend. De macro voor het aftellen werkt, maar ik moet hem wel steeds handmatig aanzetten. Na wat zoeken heb ik wat code gevonden maar ik krijg het helaas nog niet werkend.

Private Sub Workbook_Activate()

    Call De_actie_per_seconde
    Call Timer_per_seconde

End Sub


Sub Timer_per_seconde()
    TimeToRun = Now + TimeValue("00:00:01")
    Application.OnTime TimeToRun, "De_actie_per_seconde"
    End Sub

Sub De_actie_per_seconde()
     Calculate
     Call Timer_per_seconde
End Sub

Wie kan hem inkoppen ? Alvast bedankt!

 

[SjonR]

Private Sub Workbook_Activate()

    Call De_actie_per_seconde
    Call Timer_per_seconde

End Sub

Dit moet niet in een module staan, maar in ThisWorkbook.

 

[LennartRoest]

Top dank!