Sub mydoevents() while 1 do DoEvents Exit Sub Wend End Sub