View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Walt[_3_] Walt[_3_] is offline
external usenet poster
 
Posts: 48
Default killing all procedures?

Hi Myrna,

I try to never say never, but there's usually a way to avoid the
necessity of violating a best practice - point taken. Given that Ouka
wants his main to quit on failure in SubP1, would something like this
be better?:

'Declare a public variable
Public OKGo as Boolean

'The Main
Private Sub MasterList_click()
'procedure code here'
OKGo = True
Call SubP1
If OKGo then Call SubP2
End sub

'The First Sub
Private SubP1()
On Error Goto Handler1
'sub procedure code here'
Exit Sub
Handler1:
MsbBox "An error has occurred, exiting procedure SubP1"
'EXIT code here, if any, besides the following OKGo setting'
OKGo = False
End Sub

Best Regards,
Walt