Re: Use of CallByName()

Interesting that this line works (I learned something new - thanks)...

Application.Run "'" & ThisWorkbook.Name & "'!" & SubNames(i)

This also works (it is the method I am familiar with)...

Application.Run "Module1." & SubNames(i)

assuming the OP was trying to call subroutines on a Module named Module1.

Your call line is more universal than mine in that it will call a subroutine from any module in the workbook as long as the subroutine names on each module are unique. If you had, say, two subroutines named Sub1, one on Module1 and the other on Module2, your code line would error out unless the programmer specifically specified which Module's Sub1 he/she wanted. That is, the assignment of the subroutine names for this situation would have had to be (assuming the Sub1 on Module1 was wanted)...

SubNames = Array("Module1.Sub1", "Sub2", "Sub3")

Sub2 and Sub3 could be on any module (Module1, Module2, etc.) because (I'm assuming here that) their subroutine names are not used on any other module than the one they are declared in.

Rick


"Dave Peterson" <petersod@xxxxxxxxxxxxxxxx> wrote in message news:48B0425D.FA5A8D6D@xxxxxxxxxxxxxxxxxxx
I'd drop the callbyname attempt and use application.run

Option Explicit
Sub testme()
Dim SubNames As Variant
Dim i As Long
SubNames = Array("Sub1", "Sub2", "Sub3")
For i = LBound(SubNames) To UBound(SubNames)
Application.Run "'" & ThisWorkbook.Name & "'!" & SubNames(i)
Next i
End Sub
Sub sub1()
MsgBox "sub1"
End Sub
Sub sub2()
MsgBox "sub2"
End Sub
Sub sub3()
MsgBox "sub3"
End Sub


George B wrote:

Thanks for your reply, but it doesn't seem to help me. In your example, the
object is a textbox. What I need to know is how to do the following:

Replace:
Call Sub1
Call Sub2
Call Sub3

By:
subnames=array("Sub1","Sub2","Sub3")
For i=0 to 2
Call someobject,subnames(i),vbMethod
Next i

I don't know how to specify someobject.

"Joel" <Joel@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:A408A937-35A3-47A1-93DD-D855FDDEB42F@xxxxxxxxxxxxxxxx
> The code below works in 2003 in a module. I took the help example in > VBA
and
> made a minor change. I also added a textbox to the active work***. > See
if
> this helps.
>
>
> Set Text1 = Active***.OLEObjects("Textbox1").Object
> CallByName Text1, "MousePointer", VbLet, vbCrosshair
> Result = CallByName(Text1, "MousePointer", VbGet)
>
> "George B" wrote:
>
> > All the references I have found on this procedure appear to be for > > use
in a
> > class module. I would like to use it to call a procedure in Module1.
Is
> > this possible? What is the object to be specified in
> > CallByName object,procname,calltype,[args()]
> >
> >
> >

--

Dave Peterson

.