Help on worksheet_change

[arun_lp]

I have the following code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lop, freq, per As Range
'Dim updatedCell As Range
'Set updatedCell = Range(Target.Dependents.Address)
If Not Intersect(Target, Target.Worksheet.Range("$F$5")) Is Nothing Then
Application.EnableEvents = False
'If Not Intersect(updatedCell, Range("F5")) Is Nothing Then
Set lop = Worksheets("ezhil").Range("I4")
Set freq = Worksheets("ezhil").Range("F5")
Set per = Worksheets("ezhil").Range("I5")
If freq.Value <= 0.0625 Then
MsgBox ("I'm in less")
 If per.Value = "4" Then
  lop.Value = "0.5"
 ElseIf per.Value = "5" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "6" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "7" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "8" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "9" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "10" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "11" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "12" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "13" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "14" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "15" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "16" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "17" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "18" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "19" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "20" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "21" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "22" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "23" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "24" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "25" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "26" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "27" Then
  lop.Value = lop.Value + 0.5
 End If
End If
If freq.Value > 0.0625 Then
MsgBox ("I'm in high")
 If per.Value = "1" Then
  lop.Value = "0.5"
 ElseIf per.Value = "2" Then
  If lop.Value = "0.5" Then
   lop.Value = lop.Value + 0.5
  Else
   lop.Value = "0.5"
  End If
 ElseIf per.Value = "3" Then
  If lop.Value = "0.5" Then
   lop.Value = lop.Value + 0.5
  ElseIf lop.Value = "1" Then
   lop.Value = lop.Value + 0.5
  Else
   lop.Value = "0.5"
  End If
 ElseIf per.Value = "4" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "5" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "6" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "7" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "8" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "9" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "10" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "11" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "12" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "13" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "14" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "15" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "16" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "17" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "18" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "19" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "20" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "21" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "22" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "23" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "24" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "25" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "26" Then
  lop.Value = lop.Value + 0.5
 ElseIf per.Value = "27" Then
  lop.Value = lop.Value + 0.5
 End If
End If
End If
Application.EnableEvents = True
End Sub

I have a formula in the cell "F5" which is used in the "intersect" method. when the value of the cell "F5" is changed based on the formula which depends on many other cells in the worksheet the following code should be executed. But it doesn't happen.Please help me with this "intersect" method.