Application Event Procedure <Falling Over
Hi
I could not get the code below to compile:
Sub Reset_EnableEvents_NEW()
If AppClass Is Nothing Then
Set AppClass = New ClassName
Set AppClass.App = Application
End If
End Sub
"New ClassName" above produced the compile error:
"User-defined type not defined"
I had Option Explicit turned on in the module
Any help welcome. THANKS
Tim
"Tim Childs" wrote in message
...
Hi Peter
Many thanks for response
I will try to assimilate in the programming. The underlying problem is
that
sometimes the program simply does not start up properly when the file
containing it is opened. The problem is intermittent so I was very
interested in being able to test as directly as possible, rather than by
proxy e.g. the proxy would be testing the value of a new boolean flag
variable, although I will incorporate that as well.
Best wishes
Tim
"Peter T" <peter_t@discussions wrote in message
...
If AppClass is Nothing then ...
If your previously created class, that holds the ref to Excel
(AppClass.App
= Application) and handles application 'withevents', has unexpectedly
become
nothing, ie it's been destroyed, you can go on to recreate or 'reset'
it.
You could of course use RBS's suggestion to check 'If Not bWBOpened
then...'
anywhere in your code and go on to reset your objects, and perhaps any
other
global variables.
If you are going to check your settings periodically with the OnTime
method
you will need to call some routine, which might just as well be your
existing Sub Reset_EnableEvents(). But in the routine only reset if
necessary.
Regards,
Peter T
"Tim Childs" wrote in message
...
Hi Peter
Thanks for response. Can someone explain what the suggested change to
the
procedure
Sub Reset_EnableEvents()
If AppClass is nothing then
set AppClass = new ClassName
Set AppClass.App = Application
end if
End Sub
is doing because I dont yet understand.
Thanks
Tim
|