Why am I getting "Code execution has been interrupted" message

[Chris Freeman]

This is the same request as below, but now I've attached the code being used:

Sub Funds_Ops_Reconciliation()
'
Dim lngCount As Long
Dim FO As String
Dim TA As String
Dim FundsOps As String
Dim TrustAcct As String
Dim FileName As Variant


Application.DisplayAlerts = False
Application.ScreenUpdating = False

' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Title = "Select the original Funds Ops Check Request file"
.Show
For Each FileName In .SelectedItems 'code stops here
TrustAcct = FileName
Next
End With

'Open workbooks
Workbooks.Open
FileName:="\\sandprdob01\StdReg\Escheat_TrustAcct\Escheat_Trust_out.csv"
FO = ActiveWorkbook.Name 'code stops here

Workbooks.Open FileName:=TrustAcct
TA = ActiveWorkbook.Name 'code stops here

'Create values for Funds ops File: _
Total of Serial numbers (since its a number field) _
Total of check amounts _
Count of Records
Workbooks(FO).Activate
Range("H:H").Select
RC = WorksheetFunction.Count(Range("H:H"))
CA = WorksheetFunction.Sum(Range("H:H"))
FOTotal = Format(CA, "$ #,##0.00;$ -#,##0.00")
FOCount = Format(RC, comma)

'Create values for Trust Acct File: _
Total of Serial numbers (since its a number field) _
Total of check amounts _
Count of Records
Workbooks(TA).Activate
RC = WorksheetFunction.Count(Range("F:F"))
CA = WorksheetFunction.Sum(Range("F:F"))

TATotal = Format(CA, "$ #,##0.00;$ -#,##0.00")
TACount = Format(RC, comma)

ReconTotal = FOTotal - TATotal
ReconCount = FOCount - TACount
ReconTotal = Format(ReconTotal, "$ #,##0.00;$ -#,##0.00 ")

If ReconTotal <> 0 Then
MsgBox "The reconciliation process is out of balance:" & _
vbCrLf & "Trust Acct sent checks amounting to: " & TATotal & _
vbCrLf & "Funds Ops sent checks amounting to: " & FOTotal & _
vbCrLf & "We are out of balance by " & ReconTotal & ""
End If

Workbooks(FO).Close
Workbooks(TA).Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True

Workbooks("Funds Ops Return File macro.xls").Close

End Sub


The code stops in three places everything, regardless of file selected or
changes to code. I've been streamlining code and still it stops in the same
places. The only constant is that the files are on a server, and that file
retrieval is kind of slow.

Thanks in advance for assistance

 

[Patrick Molloy]

i hate asking this, but have you rebooted your pc lately?

 

[Chris Freeman]

Patrick,
Yeah, I've tried everything. I completely rebuilt the file selection
function, from msofileopen to Getopenfilename, and it still does the same
thing. These lines had no line break on them before, and I'm thinking it may
have something to do with the open file process and Workbook.Open process
confilicting somehow.

I was just hoping someone had a tip or trick about this.

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

i hate asking this, but have you rebooted your pc lately?

 

[Chris Freeman]

Patrick,
Thnaks, this time I completely shut down the computer, waited about a
minute, then restarted and its running without stopping now.

I guess so. Weirder things have happened on this computer.

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

i hate asking this, but have you rebooted your pc lately?

 

[broro183]

hi Chris,

Your comment that > Weirder things have happened on this computer suggests that it may be worth running Rob Bovey's code cleaner addin
over your VBA projects.
'VBA Code Cleaner' (http://www.appspro.com/Utilities/CodeCleaner.htm)

Not so relevant, but you may also find some helpful suggestions on Dave
Mcritchie's page - there's a huge variety of info here about possible
impacts on computer performance:
'Slow Response, Memory Problems, and Speeding up Excel'
(http://www.mvps.org/dmcritchie/excel/slowresp.htm)

hth
Rob