execute macro from personal.xlsb and get the value of the variable

Hi All,

I would like to call a macro from the personal.xlsb and receive the value (lr) from it, but I receive no value for the variable lr

the Code that start the macro in personal.xlsb:

Sub test()
Dim lr As Integer


Application.Run "'C:\Users\Q36804\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.xlsb'!get_boards", lr


End Sub

and the Code from personal.xlsb

Public lr as integer

Public Sub get_boards(ByRef lr As Integer) 

lr=Cells(Rows.Count, 1).End(xlUp).Row

End Sub

Thanks for your support!