add in code

[bluefeather8989]

i have this work sheet code.I need to add in another code with it how do i do that.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B8")) Is Nothing Then
        
        
        If Target.Value >= 1 And Target.Value <= 532 And Range("D8").Value <> "" Then
            
        Else
            Application.EnableEvents = False
                Call Blank
            Application.EnableEvents = True
        End If
        
   End If
    
End Sub

need to add this code into the first code

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B12")) Is Nothing Then
        
        
        If Target.Value >= 1 And Target.Value <= 632 And Range("D12").Value <> "" Then
            
        Else
            Application.EnableEvents = False
                Call Blank_2
            Application.EnableEvents = True
        End If
        
   End If
    
End Sub

then i need a code that says if both B8 and B12 is greater than 100
Call L_StartRace

 

[p45cal]

Does this simple merge not do it?:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8")) Is Nothing Then
  If Target.Value >= 1 And Target.Value <= 532 And Range("D8").Value <> "" Then
  Else
    Application.EnableEvents = False
    Call Blank
    Application.EnableEvents = True
  End If
End If
If Not Intersect(Target, Range("B12")) Is Nothing Then
  If Target.Value >= 1 And Target.Value <= 632 And Range("D12").Value <> "" Then
  Else
    Application.EnableEvents = False
    Call Blank_2
    Application.EnableEvents = True
  End If
End If
If Range("B8").Value > 100 And Range("B12").Value > 100 Then L_StartRace
End Sub

 

[bluefeather8989]

Does this simple merge not do it?:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8")) Is Nothing Then
  If Target.Value >= 1 And Target.Value <= 532 And Range("D8").Value <> "" Then
  Else
    Application.EnableEvents = False
    Call Blank
    Application.EnableEvents = True
  End If
End If
If Not Intersect(Target, Range("B12")) Is Nothing Then
  If Target.Value >= 1 And Target.Value <= 632 And Range("D12").Value <> "" Then
  Else
    Application.EnableEvents = False
    Call Blank_2
    Application.EnableEvents = True
  End If
End If
If Range("B8").Value > 100 And Range("B12").Value > 100 Then L_StartRace
End Sub

this is great. you rock. cheers