VB-kode til opstart af procedure

Denne  kode lægges ind i modulet ThisWorkBook

Private Sub Workbook_Open()
Application.OnKey "{ESC}", "proc2"
Call start
End Sub


denne kode lægges ind i et alm  modul:

Public tid As Variant

Sub start()
tid = Now + TimeValue("00:00:15")
Application.OnTime tid, "proc1"
End Sub


Sub proc2()
Application.OnTime tid, "proc1", schedule:=False
MsgBox "andet program startet"
End Sub

Sub proc1()
MsgBox "10 sek. gået"
End Sub

((MsgBox "10 sek. gået")) er det ikke 15 sekunder der er gået ?? :o)

Så så, chewie, enhver kan jo lave en fejl 40. jeg synes nok at de 10 sek. tog lidt lang tid :-)

:o)

Der er smuttet noget mere i løsningen, vi skal nemlig have escape-tasten tilbage til normal.
Sub proc2()
Application.OnTime tid, "proc1", schedule:=False
MsgBox "andet program startet"
Application.OnKey "{ESC}"
End Sub

Sub proc1()
MsgBox "10 sek. gået"
Application.OnKey "{ESC}"
End Sub