Looping change event

[waratdenison]

I'm trying to loop the below macro so it will repeat the function for each rom individually. Below is the code that works for a single row. Below that is my attempt at looping that keeps coming back with a DO without Loop error. Any insight would be great. Thanks.


Working Macro

Private Sub Worksheet_Change(ByVal Target As Range)
      
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("v2"), Target) Is Nothing Then
        If IsNumeric(Target.Value) Then
            If Target.Value > 200 Then
                Call Mail_small_Text_Outlook
            End If
        End If
    End If
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("v2"), Target) Is Nothing Then
        If IsNumeric(Target.Value) And Target.Value > 200 Then
            Call Mail_Customer_Text_Outlook
        End If
    End If
           
           If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("ac2"), Target) Is Nothing Then
        If Range("ac2").Value = "delivered" Then
            Call Mail_delivery_Text_Outlook
        End If
    End If
End Sub

My failed attempt at looping

Private Sub Worksheet_Change(ByVal Target As Range)
      Dim RowNum As Integer
rowz = Range("v2")
RowNum = 2
    Do Until RowNum = rowz + 1
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("v2"), Target) Is Nothing Then
        If IsNumeric(Target.Value) Then
            If Target.Value > 200 Then
                Call Mail_small_Text_Outlook
                                
Loop
        
         End If
         End If
      End Sub

[JBeaucaire]

How about this:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range

If Target.Cells.Count > 1 Then Exit Sub
    
If Not Application.Intersect(Range("V:V"), Target) Is Nothing Then
    For Each cell In Application.Intersect(Range("V:V"), Target)
        If IsNumeric(cell.Value) And cell.Value > 200 Then Call Mail_small_Text_Outlook
    Next cell
End If

If Not Application.Intersect(Range("AC:AC"), Target) Is Nothing Then
    For Each cell In Application.Intersect(Range("AC:AC"), Target)
        If cell.Value = "delivered" Then Call Mail_delivery_Text_Outlook
    End If
End If

End Sub

[JBeaucaire]

How'd that work for you?

[waratdenison]

Sorry it took so long for me to get back to you but this was a huge help and work awesome. Thanks.

[JBeaucaire]

As it appears you've reached a conclusion, I've marked this thread SOLVED for you.
FYI, this is done through the Thread Tools located above the first post in this thread. Thanks.