Argument not optional error while passing value of variable between subs

Greetings,

I would like to pass value of a variable (iRowdata) from Sub Test1 to Sub Test2. I followed the recommendation from this thread, unfortunately I get a "Argument not optional" error.

Here's a snippet of the main code (all in the same standard module).

Any ideas as to what is wrong? Many thanks in advance
Asha

Option Explicit
Dim rCoDE As Range
Dim rCoDB As Range
Dim WF As WorksheetFunction

Sub Test1()
Dim rCell As Range
Dim iCol As Integer             
Dim iRowdata As Integer        
Dim r As String                 

'Define variable(s)
Set rCoDE = Names("DE_Co").RefersToRange
Set WF = Application.WorksheetFunction
iRowdata = WF.CountIf(rCoDE, "<>-")
iCol = 2

Call Test2(iRowdata)

‘REST OF THE CODE

Set rCoDE = Nothing
Set rCoDB = Nothing
Set WF = Nothing

End Sub

Sub Test2(iRowdata As Integer)

Dim wDest As Worksheet              
Dim iCNDup As Integer               
Dim rCopy As Range                 
Dim rErrCells As Range              

Application.ScreenUpdating = False

'Define variable(s)
Set WF = Application.WorksheetFunction
Set rCopy = Names("DE_InputRange").RefersToRange.Resize(WF.Max(iRowdata, 1))

‘REST OF THE CODE        

Set wDest = Nothing
Set rCopy = Nothing
Set WF = Nothing
Exit Sub
        
End Sub

I assume you've checked that iRowData is actually holding a value before it calls Test2?

Dom

You'd better start simple:

Sub Test1()
   A_Test2 application.CountIf(range("DE_Co"), "<>-")
End Sub

Sub Test2(iRowdata As Integer)
   c01= Names("DE_InputRange").RefersToRange.Resize(iRowdata).address
End Sub

next step

Sub Test1()
   x=application.CountIf(range("DE_Co"), "<>-")
   A_Test2 x
End Sub

Sub Test2(iRowdata As Integer)
   c01= Names("DE_InputRange").RefersToRange.Resize(iRowdata).address
End Sub

I see little reason why it wouldn't work. Have you tried snb's suggested code?

Dom

There's nothing wrong with the code syntactically. Where do you actually get the error? (on one of the lines you didn't post?)

It would have helped a lot if you had explained that macro2 was being called directly from a control rather than showing us it being called from another sub!
You cannot pass iRowData like that because it is only declared inside Macro1. How is Test2 supposed to work when called directly from a control??

OK, but that doesn't answer my question?

Wash your mouth out.

But that's the issue. Test1 passes the value Test2 needs every time it is called. If you need to be able to call Test2 on its own, you may as well simply have it calculate the value of iRowData itself.

No. Either move the three lines of code from Test1 (unless it uses the value elsewhere) into Test2, or move them to a separate function that both routines can call as needed:

Function RowCount() as Long
Dim rCode as Range
Dim WF as WorksheetFunction
Set rCoDE = Names("DE_Co").RefersToRange
Set WF = Application.WorksheetFunction
RowCount = WF.CountIf(rCoDE, "<>-")
End Function