Private Sub Workbook_open()
    Application.OnTime Now + TimeSerial(0, 0, mydelay), "callmelater"
End Sub