View Single Post
  #2   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


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