Function InRange(Range1 As Range, Range2 As Range) As Boolean
' returns True if Range1 is within Range2
InRange = Application.CountIf(Range2, Range1) 0
End Function

if you must use VBA.

You could just use a worksheet formula of

=COUNTIF(A3:A8,A1)0

--

HTH

RP
(remove nothere from the email address if mailing direct)


"wilby31" wrote in
message ...

How can I check if a cell's value is found within the values of a range
of values?

For instance:

In the range from say A3:A8 = [3,3,4,5,1,3]
A1 = 3

I want the VBA function to return TRUE.

Something similar to this

Function InRange(Range1 As Range, Range2 As Range) As Boolean
' returns True if Range1 is within Range2
Dim InterSectRange As Range
Set InterSectRange = Application.Intersect(Range1, Range2)
InRange = Not InterSectRange Is Nothing
Set InterSectRange = Nothing
End Function


But base it's check on values, not just addresses.

Thanks a million!


--
wilby31
------------------------------------------------------------------------
wilby31's Profile:
http://www.excelforum.com/member.php...o&userid=27287
View this thread: http://www.excelforum.com/showthread...hreadid=476415