Block If without End If

Why am I getting a Compile Error: "Block If without End If" with this code?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("E65,J65,O65,M15,I15,C15")) Is Nothing Then
    Target.Value = Date
    Cancel = True
  ElseIf Not Intersect(Target, Range("B15,H15,J15,L15,J50:J57,C65,H65,M65")) Is Nothing Then
    Target.Value = Time
    Cancel = True
    ElseIf Not Intersect(Target, Range("O86:O96,N71:O78,G24:I31")) Is Nothing Then Exit Sub
With Target
If .Value = "£" Then
.Value = "R"
Else
.Value = "£"
Cancel = True
End If
End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("E65,J65,O65,M15,I15,C15")) Is Nothing Then
    Target.Value = Date
    Cancel = True
  ElseIf Not Intersect(Target, Range("B15,H15,J15,L15,J50:J57,C65,H65,M65")) Is Nothing Then
    Target.Value = Time
    Cancel = True
    ElseIf Not Intersect(Target, Range("O86:O96,N71:O78,G24:I31")) Is Nothing Then Exit Sub
End if
With Target
If .Value = "£" Then
  .Value = "R"
Else
  .Value = "£"
  Cancel = True
End If

End With
End Sub

That sort of worked... Except that my entire sheet throws £ everywhere now.

Thank you Norie