OutOfBounds Function

Function OutOfBounds(rngToCheck As Excel.Range, _
lngLowValue As Long, _
lngHighValue As Long, _
Optional lngHighlightColor As Long = 255) As Boolean
' This procedure illustrates how to use the Cells property
' to iterate through a collection of cells in a range.
' For each cell in the rngTocheck range, if the value of the
' cell is numeric and it falls outside the range of values
' specified by lngLowValue to lngHighValue, the cell font
' is changed to the value of lngHighlightColor (default is red).
End Function