Is there something wrong with this VBA?

[grabrail]

I have some code that doesnt appear to work on my workbook

Private Sub Worksheet_Change(ByVal Target2 As Range)

 If Not Intersect(Target2, Range("E121")) Is Nothing Then
        If Target2.Value < "50" Then
            Inspection.Show
           

        End If

End Sub

I would expect this to open the form, inspection if the value typed into Cell E121 is less than 50, but nothing happens


Already have a sub on the same worksheet that does similar for a different range of cells, as follows:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E13:E27,E29:E39,J13:J35,J37:J39")) Is Nothing Then
        If Target.Value = "DF" Then
            Inspection.Show
           

        End If
       
      
    End If
End Sub

And this works fine.

Is it because i have 2 sets of code on the same sheet doing a similar task? do i need to merge the 2 pieces of code into one sub?

 

[RoryA]

Is it because i have 2 sets of code on the same sheet doing a similar task? do i need to merge the 2 pieces of code into one sub?

In a word, yes.

 

[grabrail]

So would it be something like this? or am i getting the wrong end of the stick?

Private Sub Worksheet_Change(ByVal Target As Range, ByVal target2 As Range)
    
    If Not Intersect(Target, Range("E13:E27,E29:E39,J13:J35,J37:J39")) Is Nothing Then
        
        If Target.Value = "DF" Then
            Inspection.Show
        End If
        
        If Not Intersect(target2, Range("E121")) Is Nothing Then
        
        If target2.Value < "50" Then
            Inspection.Show
        End If
End Sub

 

[RoryA]

Not quite:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, Range("E13:E27,E29:E39,J13:J35,J37:J39")) Is Nothing Then
        
        If Target.Value = "DF" Then
            Inspection.Show
        End If
        
    ElseIf Not Intersect(target, Range("E121")) Is Nothing Then
        
        If target.Value < 50 Then
            Inspection.Show
        End If
    End If
End Sub