Function InRange(Range1 As Range, Range2 As Range) As Boolean    ' returns True if Range1 is within Range2    InRange = Not (Application.Intersect(Range1, Range2) Is Nothing)End FunctionSub TestInRange()    If InRange(ActiveCell, Range("A1:D100")) Then        ' code to handle that the active cell is within the right range        MsgBox "Active Cell In Range!"    Else        ' code to handle that the active cell is not within the right range        MsgBox "Active Cell NOT In Range!"    End If End Sub