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