This will search each of the 'yes' columns if you change the value in F:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column <> 6 Then Exit Sub
If Target.Value >=1000 Then
If UCase(Cells(Target.Row,12).Value) = "YES" Then Mail_small_Text_Outlook10 Target.row
If UCase(Cells(Target.Row,16).Value) = "YES" Then Mail_small_Text_Outlook12 Target.row
If UCase(Cells(Target.Row,21).Value) = "YES" Then Mail_small_Text_Outlook12 Target.row
If UCase(Cells(Target.Row,28).Value) = "YES" Then Mail_small_Text_Outlook23 Target.row
If UCase(Cells(Target.Row,20).Value) = "YES" Then Mail_small_Text_Outlook15 Target.row
If UCase(Cells(Target.Row,24).Value) = "YES" Then Mail_small_Text_Outlook19 Target.row
If UCase(Cells(Target.Row,27).Value) = "YES" Then Mail_small_Text_Outlook22 Target.row
If UCase(Cells(Target.Row,13).Value) = "YES" Then Mail_small_Text_Outlook13 Target.row
If UCase(Cells(Target.Row,6).Value) = "YES" Then Mail_small_Text_Outlook6 Target.row
' If Target.Column = 12 Then Mail_small_Text_Outlook10 Target.row
' If Target.Column = 16 Then Mail_small_Text_Outlook12 Target.row
' If Target.Column = 21 Then Mail_small_Text_Outlook16 Target.row
' If Target.Column = 28 Then Mail_small_Text_Outlook23 Target.row
' If Target.Column = 20 Then Mail_small_Text_Outlook15 Target.row
' If Target.Column = 24 Then Mail_small_Text_Outlook19 Target.row
' If Target.Column = 27 Then Mail_small_Text_Outlook22 Target.row
' If Target.Column = 13 Then Mail_small_Text_Outlook13 Target.row
'If Target.Column = 6 Then Mail_small_Text_Outlook6 Target.row
End If
End Sub
Bookmarks