Passing arguments in a loop

[tiredofit]

Instead of writing this:

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Option Explicit[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]
Sub Calling()[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]
    Call Module1.Called(somearg:=1)
    
    Call Module1.Called(somearg:=2)
        
    Call Module1.Called(somearg:=3)
        
End Sub[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]
Sub Called(ByRef somearg As Integer)[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]
    somearg = somearg + 1[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]
End Sub

I would like to use a loop, as follows:

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif][FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Option Explicit

[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub Calling()
    
    Dim ArgArray() As Variant
    
    ArgArray() = Array(1, 2, 3)
    
    Dim i As Integer
    
    For i = LBound(ArgArray(), 1) To UBound(ArgArray(), 1)

[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]        Call Module1.Called(somearg:=CInt(ArgArray(i)))

[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]    Next I

[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]End Sub[/FONT]
[/FONT][FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]

It works but how can I adapt it if Called takes more than one argument?

For example, if Called looked like this:

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub Called(ByRef somearg As Integer, ByRef somearg2 As Integer)[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]
    somearg = somearg2 + 1[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]
End Sub

how do I change ArgArray in Calling so it passes the args "in pairs"?

Thanks


[/FONT]
<strike></strike>
[/FONT]
<strike></strike><strike></strike>
[/FONT]
<strike></strike>

 

[Fluff]

How about

Sub tiredofit()
    Dim Ary As Variant
    Dim i As Long
    
    Ary = Array(1, 2, 3, 4, 5, 6)
    For i = 0 To UBound(Ary) Step 2
        Call test(CLng(Ary(i)), CLng(Ary(i + 1)))
    Next i
End Sub
Sub test(arg1 As Long, arg2 As Long)
    arg1 = arg1 * arg2
    Debug.Print arg1
End Sub

 

[tiredofit]

Thanks, that's great.

 

[Fluff]

You're welcome & thanks for the feedback