by default if should have a name like module1 if it is a standard module
It will be listed in the project explorer in the
VB Editor under the entry
for modules under you workbook/project.
If it is a class module it would be under Class. Any other type class
module would not be listed as it is part of a sheet, thisworkbook or
userform.
--
Regards,
Tom Ogilvy
"BruceJ" wrote in message
news:FYTnb.57751$e01.161947@attbi_s02...
Thaks!
Is there a way I can tell if an existing module is standard or class?
Thanks
Bruce
"Tom Ogilvy" wrote in message
...
Insert= module gives you a standard code module.
--
Regards,
Tom Ogilvy
"BruceJ" wrote in message
news:ydRnb.55948$Tr4.127761@attbi_s03...
Chip,
How do I declare in a "standard code module"?
What is the differance between a class and standard? I now this is
probably
very basic to most people here, but....
Thanks
Bruce
"Chip Pearson" wrote in message
...
Bruce,
You can't run procedures in a class module, only procedures in a
standard
code module. Moreover, you can't declare Public constants in a class
module
(which includes regular class modules, the ThisWorkbook module,
sheet
code
modules, and userform code modules). Declare everything in a
standard
code
module.
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
"BruceJ" wrote in message
news:VZFnb.54052$HS4.263894@attbi_s01...
I am trying to get an ontime routine working.
Here are my questions...
Will it only run MACROS? or can it run a sub function
Where do I decalre the PUBLIC varibles
I tried to following in one of the modules (a_publicStuff):
Public NextTime As Double 'to setup 15 minute time
Public Const cRunIntervalSeconds = 900 ' 15 minutes
Public Const cRunWhat = "settimer_Click"
(if I put the above in my usercode area, the last two turn red)
and the following is in my userform code area.
Sub StartTimer()
'RunWhen = NextTime
Application.OnTime earliesttime:=NextTime, procedu=cRunWhat, _
schedule:=True
End Sub
Sub settimer_Click()
MsgBox Format(Application.RoundUp(Time * 96, 0) / 96, "hh:mm:ss")
NextTime = NextTime + cRunIntervalSeconds
MsgBox cRunIntervalSeconds
MsgBox Format(NextTime, "hh:mm:ss")
End Sub
When I run my form, I get an error saying the macro can not be
found.
If I create a macro with the name, it functions, but the nexttime
does
not
get incremented, and cRunIntervalSeconds is 0:00
Thanks
Bruce