Hi Peter T, i have inserted and tried, with the same results. I do need
to continue with my code after inserting it, hence the code below.

Sub BBBStdR()
'
On Error Resume Next
CreateEventProcedure
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:02"), "MoveKTLToArchiveR"

End Sub

You also talk about closing the VBE, how would i do that ? Sorry i am
not a trained programmer and still stumbling a bit...

Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***