If a cells value is greater or less than the value of another cell then run macros

[Wilf-]

Hello,

I already have this code which runs a macro when the target cell is changed and it works, but what I need it to do is:

If A6 value is greater than cell E7 then run macro1
If A6 value is equal to cell E7 value then do nothing
and if A6 cell value is less than E7 value then run macro2.

What do I need to add to the below code to achieve this? Any help would be appreaciated thanks.

Great forum btw!

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A6")) Is Nothing Then
      On Error Resume Next
      Application.EnableEvents = False
      Call macro1
      Application.EnableEvents = True
   End If
End Sub

[JOHN H. DAVIS]

Maybe:

If Not Intersect(Target, Range("A6")) Is Nothing Then
      On Error Resume Next
      Application.EnableEvents = False
      If Target.Value > Range("E7").Value Then Call Macro1
      If Target.Value < Range("E7").Value Then Call Macro2
      Application.EnableEvents = True
   End If
End Sub

[Wilf-]

Thank you John that's exactly what I was after. It works great

[Wilf-]

Thanks for the replies both work great.

[Vikas_Gautam]

Try this

If Not Intersect(Target, Range("A6")) Is Nothing Then
      On Error Resume Next
      Application.EnableEvents = False
      Select Case Target.Value 
      Case is > Range("E7").Value : Call Macro1
      Case is < Range("E7").Value : Call Macro2
      End select
       Application.EnableEvents = True
   End If
End Sub

[JOHN H. DAVIS]

You're welcome. Glad to help out.