Thanks !!

Tom Ogilvy wrote:
React to a cell edited in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If IsNumeric(Target.Value) And Target.Value 200 Then
YourMacroName
End If
End If
End Sub

or for a specific range of cells (B5:B20 in the example)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("B5:B20"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value 200 Then
YourMacroName
End If
End If
End Sub

I can get it to email based on one cell, but I need it to email based on a
range of cells depending on difference of todays date and the due date. I
[quoted text clipped - 12 lines]

Jake


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200509/1