E-Mail use in Excel

[Walt]

Is there a way to to embed/use e-mail in an excel
spreadsheet when a date in a cell has been reached?

Thanks in advance

 

[Ron de Bruin]

This you want I think after I read it good<g>

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
If Target.Value > DateSerial(2003, 7, 5) Then
testmail
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
If Target.Value > DateSerial(2003, 7, 5) Then
ActiveSheet.Copy
ActiveWorkbook.SendMail "(e-mail address removed)", _
"This is the Subject line"
ActiveWorkbook.Close False
End If
End If
End Sub