to use variables from macro of personal.xlsb

Hi Everybody,



I would like to use the variables in the activeworkbook from a macro placed in the personal.xlsb. I can run the macro "counter" with the command:

Application.Run "personal.xlsb!counter"

but after the check the values in the immediate window have no values.



I tried so too:

Application.Run "personal.xlsb!counter", fr, lr, fc, lc

but at the end no values for fr,lr,fc,lc


In the personal.xlsb have the sub:

Public Sub counter(fr, fc, lr, lc)
.....

and the variables as Public declared.

Thanks for your help.

I modified but can't call with:

Application.Run "personal.xlsb!counter(ByRef fr, ByRef fc, ByRef lr, ByRef lc)"

and
with

Application.Run "personal.xlsb!counter"

also not

Hi,

I tried to create a function instead of a sub but it doesn't work. I receive a fine values as a result of macro of personal.xlsb but it wont be added to the macro in the active sheet.

Thanks for your Help

Sub counter()



lr2 = 1
fr2 = 1
lc2 = 1
fc2 = 1

If fc0 = 0 Or fc0 = "" Then

For i = 1 To Columns.Count

With ActiveSheet
lr1 = .Cells(.Rows.Count, i).End(xlUp).Row
If lr1 = 1 Then
fr1 = 1
Else
fr1 = .Columns(i).Find("*", Cells(Rows.Count, i)).Row
End If

lc1 = .Cells(fr1, .Columns.Count).End(xlToLeft).Column
If lc1 = 1 Then
fc1 = 1
Else
fc1 = .Rows(fr1).Find("*", Cells(fr1, Columns.Count)).Column
End If

End With

lr = IIf(lr2 > lr1, lr2, lr1)
lr2 = lr
fr = IIf(fr2 > fr1, fr1, fr2)
fr2 = fr
lc = IIf(lc2 > lc1, lc2, lc1)
lc2 = lc
fc = IIf(fc2 > fc1, fc1, fc2)
fc2 = fc

Next i

Else

With ActiveSheet
lr = .Cells(.Rows.Count, Val(fc)).End(xlUp).Row
If lr = 1 Then
fr = 1
Else
fr = .Columns(Val(fc)).Find("*", Cells(Rows.Count, Val(fc))).Row
End If

lc = .Cells(fr, .Columns.Count).End(xlToLeft).Column



End With
End If

End Sub

This code is in the personal.xlsb sheets and it should be called in an another workbook's modul

Thank you for your Help!