Hi

I have been trying to add to the below, without much success. What I want to do is generate a message if the value in Q12 is greater than the value of S12. Cell Q12 contains a formula. I have to do this on a couple more cells which is why i am unable to use worksheet calculate. i just have not been able to work out how to add it in.


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("I7")) Is Nothing Then
    If Target.Value > Sheet1.Range("B36") Then
    MsgBox "XXXXXXXXXXXXX!"
    End If
    ElseIf Not Intersect(Target, Range("E12")) Is Nothing Then
    If Target.Value > Sheet1.Range("C36") Then
    MsgBox "Message here!"
    End If
   
    End If



   End Sub