Forcing Excel to stop calculating after error in function -

i've got function defined called on 1000 times on spreadsheet (looks price database) spreadsheet opened in environment database unavailable. when happens, i've got error code handle it, pushes message box.

i'd way stop excel calculation if first 1 fails, things can fixed. i'd pop message box gives option stop calculation.

is there way make happen? of now, pops message box 1000 times, , lot of time ctrl+break (some keyboards not have break key) or esc not stop running because goes quick break in...

errorhandler: ' clean if not rst1 nothing     if rst1.state = adstateopen rst1.close end if set rst1 = nothing  if not con1 nothing     if con1.state = adstateopen con1.close end if set con1 = nothing  if err <> 0     msgbox err.source & "-->" & err.description, , "error" end if   end function 

you can use label , divert label using goto. see below code.

on error goto errorhandler   = 1 / 0  errorhandler: ' clean if not rst1 nothing     if rst1.state = adstateopen rst1.close end if set rst1 = nothing  if not con1 nothing     if con1.state = adstateopen con1.close end if set con1 = nothing  if err <> 0     msgbox err.source & "-->" & err.description, , "error"     goto exit_func end if  exit_func:  end function