Rewrite Available VBA re: Worksheet_Change

[love_guy_1977]

Hi guys,

I need your help to combine & minimize this VAB

Private Sub Worksheet_Change(ByVal Target As Range)

 If Sheets("Working_Paper").Range("AJ12") > 1 And Sheets("Working_Paper").Range("AL12") > 1 Then
     Application.Undo
 End If

 If Sheets("Working_Paper").Range("AJ13") > 1 And Sheets("Working_Paper").Range("AL13") > 1 Then
     Application.Undo
 End If

 If Sheets("Working_Paper").Range("AJ14") > 1 And Sheets("Working_Paper").Range("AL14") > 1 Then
     Application.Undo
 End If

 If Sheets("Working_Paper").Range("AJ15") > 1 And Sheets("Working_Paper").Range("AL15") > 1 Then
     Application.Undo
 End If

 If Sheets("Working_Paper").Range("AJ16") > 1 And Sheets("Working_Paper").Range("AL16") > 1 Then
     Application.Undo
 End If

 If Sheets("Working_Paper").Range("AJ17") > 1 And Sheets("Working_Paper").Range("AL17") > 1 Then
     Application.Undo
 End If

 If Sheets("Working_Paper").Range("AJ18") > 1 And Sheets("Working_Paper").Range("AL18") > 1 Then
     Application.Undo
 End If

 If Sheets("Working_Paper").Range("AJ19") > 1 And Sheets("Working_Paper").Range("AL19") > 1 Then
     Application.Undo
 End If

End Sub

Thank you

 

[njimack]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long

Application.EnableEvents = False


With Sheets("Working_Paper")
    For i = 12 To 19
        If .Cells(i, 36) > 1 And .Cells(i, 38) > 1 Then Application.Undo
    Next i
End With
    
Application.EnableEvents = True
    
End Sub