Function IsBetween(cell1, cell2, cell3) As String
IsBetween = _
IIf((cell1 cell2 And cell1 < cell3) Or _
(cell1 cell3 And cell1 < cell2), "Yes", "No")
End Function

--
Regards,
Tom Ogilvy



"John Wirt" wrote in message
...
I want to write a VBA function that compares the numeric values in cell1
against the value is cell2 and cell 3, and reports "Yes" if cell1 is
between
cell2 and cell 3, and otherwise "No." Here is a cut & paste of the
function
I;ve written in PERSONAL.XLS (see below).

WHen I enter =IsBetween(A1, B1,C1) in D1 with numeric values in A1, B1,
and
C1 I get a #NAME error in D1. How come?

Function IsBetween(cell1, cell2, cell3) As String
If cell1 cell2 Then
If cell1 < cell3 Then
IsBetween = "Yes"
Else
IsBetween = "No"
End If
ElseIf cell1 < cell2 Then
If cell1 cell3 Then
IsBetween = "Yes"
Else
IsBetween = "No"
End If
End Function


Thanks.

John Wirt