Declare a class module in General Declarations
 

I have a class module that I want to use a few time in my VBA code. How
do I declare it in the General declarations of the current module:

General.Declarations
Option Explicit
?????????? declare clsMod here

Private Sub cmdProcessItem_Click()
Dim N As Integer, nCounter As Long, cStrin As String, lProcess As
Boolean, _
cMsg As String, _
aFiles(1) As String, cFilenme As String
For N = 0 To 1
lProcess = clsMod.OpenFile(aFiles(N))
if not lProcess Then Exit for
Next N
If lProcess Then
process the workbook that was opened
else
msgBox "File Not Opened"
end sub

Thanks...


--
Wilbur
------------------------------------------------------------------------
Wilbur's Profile: http://www.excelforum.com/member.php...o&userid=31826
View this thread: http://www.excelforum.com/showthread...hreadid=521496

Declare a class module in General Declarations
 

Try something like

Dim C As Class1

Sub Init()
Set C = New Class1
' more code
End Sub

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Wilbur"
wrote in message
...

I have a class module that I want to use a few time in my VBA
code. How
do I declare it in the General declarations of the current
module:

General.Declarations
Option Explicit
?????????? declare clsMod here

Private Sub cmdProcessItem_Click()
Dim N As Integer, nCounter As Long, cStrin As String, lProcess
As
Boolean, _
cMsg As String, _
aFiles(1) As String, cFilenme As String
For N = 0 To 1
lProcess = clsMod.OpenFile(aFiles(N))
if not lProcess Then Exit for
Next N
If lProcess Then
process the workbook that was opened
else
msgBox "File Not Opened"
end sub

Thanks...


--
Wilbur
------------------------------------------------------------------------
Wilbur's Profile:
http://www.excelforum.com/member.php...o&userid=31826
View this thread:
http://www.excelforum.com/showthread...hreadid=521496