lnResult = MessageBox( m.lcMessage1 + m.lcObject + "Suspend?", MB_YESNOCANCEL + MB_ICONSTOP, _screen.Caption ) do case case m.lnResult = IDYES activate window trace suspend case m.lnResult = IDCANCEL cancel endcaseIf I select suspend it only a couple of clicks of the step button to get to the error in the code.