That's my fault, a typo.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("RevModSel")) Is Nothing Then
        Call IF_Test
    End If
End Sub