View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
JHop JHop is offline
external usenet poster
 
Posts: 10
Default Exit Sub not exiting

Thanks very much for the offer. Everything seems to be working OK now--see
my reply to Tim Zych below.
--
Judy Hopkins


"Leith Ross" wrote:

On Nov 23, 8:05 pm, JHop wrote:
Thanks, Leith, but I have stepped through it numerous times and there are no
other events that trigger it. When I step through it, I see it go from Exit
Sub at the end to cmdDataLoad_Click and go through the whole thing again.
Very weird. Is there such a thing as corruption in Excel VBA?
--
Judy Hopkins

"Leith Ross" wrote:
On Nov 23, 6:12 pm, JHop wrote:
I have a very strange problem. When the following code executes and the
condition is not met, it goes to LoadDataExit as expected, but then instead
of stopping when it gets to the end, it goes back to cmdLoadData and executes
repeatedly. This happened once before in another workbook, and at the time
(being more of an Access programmer) I decided it was some kind of corruption
and went back to an earlier version and applied all the code changes, which
got it working again. Since it's happened again in a totally different
workbook, and since that kind of fix is very tedious and not necessarily
guaranteed to work, I'm wondering what could be happening and how best to fix
it now and prevent it in the future. I'd appreciate any help.


Private Sub cmdLoadData_Click()
<snip
If oSheet.Range(conCellOrderToVerify) < "" And _
InStr(oSheet.Range(conCellOrderToVerify), "Order - Verify") = 0 Then
MsgBox "Input file in wrong format. Cell " & conCellOrderToVerify & _
" on Sheet1 (Summary Sheet) " & _
" should contain the text 'Order - Verify'", _
vbCritical
oInputBook.Close
GoTo LoadDataExit
End If
<snip
LoadDataExit:
Sheets("Start").Activate
Sheets("Data").Visible = False
Sheets("Lookups").Visible = False
ActiveSheet.Range("A11").Select
Application.ScreenUpdating = True
Exit Sub
<snip
End Sub


--
Judy Hopkins


Hello Judy,


I would check any worksheet event code you might have. A command
button can be "clicked' in code by setting its value property. You
could also add a break points to each line in LoadDataExit to step
through and verify your operations. To add/remove a break point, place
the cursor on the line and press F9. To step to the next statement,
press F5.


Sincerely,
Leith Ross


Hello Judy,

VBA can become corrupted. In my experience, when this happens the code
generally errors or it crashes Excel. If you like, I could look the
workbook over for errors for you. If you have any sensitive
information in the workbook, you would need to sanitize it first. My
email is

Sincerely,
Leith Ross