About Us

Kirk P.

That's what I like - a simple fix!

Thanks.

"tissot.emmanuel" wrote:

Hi,

Change your ProcessCTSWorkbooks like this:

Sub ProcessCTSWorkbooks()
On Error GoTo ErrorHandler
'statements
Exit Sub
ErrorHandler:
MsgBox "An error occured in ProcessCTSWorkbooks"
End '<<<<< This keyword will stop the program
End Sub

Regards,

Manu/

"Kirk P." a Ã©crit dans le message de news:
...
I've got this code:

Sub TimeCTSProcess()
Dim sglStartTime As Single
Dim sglEndTime As Single
Dim sglDuration As Single

sglStartTime = Timer
Call ProcessCTSWorkbooks
sglEndTime = Timer
sglDuration = Round(((sglEndTime - sglStartTime) / 60), 2)

MsgBox "CTS Eplanning Excel files processed in " & sglDuration & "
minutes!", _
vbInformation, "Processing Status"

End Sub

There is an error handler within ProcessCTSWorkbooks that works fine,
however I would prefer than when an error is encountered it would display
the
msgbox associated with the error handler in ProcessCTSWorbooks and exit
the
sub. Currently, I get the error message associated with
ProcessCTSWorkbooks,
AND the message box associated with TimeCTSProcess.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Error Handling	Kevin	Excel Discussion (Misc queries)	4	June 19th 08 12:31 AM
Error Handling - On Error GoTo doesn't trap error successfully	David	Excel Programming	9	February 16th 06 05:59 PM
Error Handling	Billy Boone	Excel Programming	1	July 1st 05 02:21 PM
Error handling with a handling routine	ben	Excel Programming	0	March 15th 05 03:01 PM
Error Handling	Todd	Excel Programming	1	February 13th 04 11:29 PM

Menu

About Us