Perhaps this will do as you wish.......

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Excel.Range)
If Not Range("a1").Value = "" Then
Range("b1").Value = Date
Else
Range("b1").Value = ""
End If
End Sub


Vaya con Dios,
Chuck, CABGx3





"JDay" wrote:

If anything appears in cell A1, I would like the date to appear in cell B1.
However, once that date appears, I want that date to remain constant, not
update daily. I need to know what date I sent a particular letter so the
date must remain.