Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G3:G52")) Is Nothing And Target.Value <> "" Then
Call SendEMail1
ElseIf Not Intersect(Target, Range("M3:M52")) Is Nothing And UCase(Target.Value) = "YES" Then
Call SendEMail2
Sheets(Target.Row).PrintOut
ElseIf Not Intersect(Target, Range("W3:W52")) Is Nothing And UCase(Target.Value) = "YES" Then
Call SendEMail4
End If
End Sub