Sub Main()
On Error GoTo Error_Restart
'...........
Exit Sub
Error_Restart:
Call Main
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)