View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
Jacob Skaria Jacob Skaria is offline
external usenet poster
 
Posts: 8,520
Default Why do I get Code Excution has been interupted


Close the workbook and application. Reopen again.
--
If this post helps click Yes
---------------
Jacob Skaria


"Chris Freeman" wrote:

Jacob,
I don't see a reset in the VBE, so if its there, and you want to point it
out, I'd appreciate it.

Thanks
--
Chris Freeman
IT Project Coordinator


"Jacob Skaria" wrote:

It would be worth to take a look at

http://www.excel-vba.com/excel-vba-contents.htm

If this post helps click Yes
---------------
Jacob Skaria


"Chris Freeman" wrote:

Jacob,
I placed the displayalert = false and =true in the code, but same thing: I
get the error watch. I don't know how/where/what to reset VBE. Where is that?

Thanks

--
Chris Freeman
IT Project Coordinator


"Jacob Skaria" wrote:

Hit reset in VBE. Save and close the workbook. Reopen and try again...Place
your code in between as below and try.

Sub Macro()
Application.DisplayAlerts = False

'place your code here

Application.DisplayAlerts = True
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"Chris Freeman" wrote:

I wrote some quick code to open files and count some rows, and now, for every
file opening, I get a "Code Execution has been interupted" message. I didn't
have any code break in the code previously, and can't seem to get ride of
them. I tried doing a debug, and then saving for the heck of it, but it still
stops there next time around.

here's what runs the first stop:

' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Title = "Select the original Funds Ops Check Request file"
.Show
For lngCount = 1 To .SelectedItems.Count

then I hit continue and it stops some 8 lines later:

'Open workbooks
Funds_Ops = "\\sandprdob01\StdReg\Outbound_Escheat\Escheat_Tru st_out.csv"
Workbooks.Open Filename:=Funds_Ops
FO = ActiveWorkbook.Name


And then again he
Workbooks.Open Filename:=Trust_Acct
TA = ActiveWorkbook.Name


Then it finishes the rest of the code. Am I missing some code here?

Thanks


----------------------------------------
Chris Freeman
IT Project Coordinator