ByRef Array Button Click

Hi,

I am trying to pass an array generated on one button click to a subroutine button click. For example

Code:

---

Private Sub Retrieve_Attendance_click(ByRef LArrayDatesOfPay() As String)Dim todays_date_from As Variant
Dim todays_date_to As Variant
Dim rowNumSubmit As Range
'Dim LArrayDatesOfPay() As String
Dim txtB1 As Control
Dim myrow_10() As Integer
'Main.Hide
'Submit_Wages.Retrieve_Attendance.Visible = False
Call PopulateArrayEmployed
todays_date_from = Me.Date_Picker_Wages_Start_Date.Value
todays_date_to = Me.Date_Picker_Wages_End_Date.Value
x = 1


For Each rowNumSubmit In ThisWorkbook.Worksheets("Input Take Sheet").Range("Input_take_table[Date]").Rows
    ReDim Preserve myrow_10(x)
    myrow_10(x) = rowNumSubmit.row - 1
 If ThisWorkbook.Worksheets("Input Take Sheet").Range("Input_take_table[Date]").Rows(myrow_10(x)).Value >= todays_date_from _
    And ThisWorkbook.Worksheets("Input Take Sheet").Range("Input_take_table[Date]").Rows(myrow_10(x)).Value <= todays_date_to Then
   
    ReDim Preserve LArrayDatesOfPay(x)
    LArrayDatesOfPay(x) = ThisWorkbook.Worksheets("Input Take Sheet").Range("Input_take_table[Date]").Rows(myrow_10(x)).Value


    x = x + 1
   
    End If
   
Next

---

and then

Code:

---

Private Sub Wages_Submit_Click()Dim LArrayDatesOfPay() As Date


Call Retrieve_Attendance_click(LArrayDatesOfPay)
MsgBox UBound(LArrayDatesOfPay)


End Sub

---

But it keeps coming up with a compile error Procedure declaration does not match description of event or procedure having the same name error.

Any help would be greatly appreciated.

Kind Regards

Cross posted on multiple sites

please read this http://www.vbaexpress.com/forum/faq...._new_faq_item3

+1 on cross posting

Click events have a 'fixed' definition and you can't just change them to pass a parameter

I'd save it in a Public variable in one sub and then use it in the second