The code below seems fine. It ran okay on my machine. Look at the code that
calls the function; there may be something there that's recalling the
function.

" wrote:

Hi all;


I'm writing a code for a macro in ms excel 2000 and I'm having some
troubles with MsgBox. Here is an example of the code:


Public Function RCL(PLI As Single, RMA As Single)


If RMA 49 And RMA < 71 Then
RCL = 0.91568 * (1 - Exp(-Exp(-1.8956) * (PLI - 1)))


Else
YesNo = MsgBox("RMA out of range!", vbYesNo)
Select Case YesNo
Case vbYes
RCL = 0.75624 * (1 - Exp(-Exp(-1.070025) * (PLI - 1)))
End


Case vbNo
MsgBox "Error"
End


End Select
End If
End Function


.............
After pressing YES/NO I want to MsgBox doesn't show up more than one
time. In the current situation, when I enter a value out of range, the
message appear several times and I have to press OK until I get some
result


Any hint?

Thanks