Error 13 Type mismatch help please

[jecruz]

Hi everyone. I'm developing a program to simulate losses. The error appears on the line for the formula of n.

Random = Rnd()
r = ActiveSheet.Cells(11, 1).Value
s = ActiveSheet.Cells(12, 1).Value
n = WorksheetFunction.LogInv(Random, r, s)

I badly need help. Thanks in advance.

 

[Osvaldo Palmeiro]

Hi.
this works for me
ex.
A11=3,5
A12=1,2

Sub test()
    Dim r, s, n, random As Double
    random = Rnd()
        r = ActiveSheet.Cells(11, 1).Value
        s = ActiveSheet.Cells(12, 1).Value
        n = WorksheetFunction.LogInv(random, r, s)
    MsgBox n
End Sub

 

[jecruz]

Thanks for the reply. I still can't seem to make it work for me. Though I managed to get the results I wanted using the Evaluate function.

Thanks a lot. :D