Date Functions

Hello,

I would like to be able to have the following happen. If Part # cell is
blank then Completed Date is blank, but if a value is entered into the part #
cell I would like to have the current date appear in the Completed Date cell,
and to stay that date. Currently once midnight comes the date changes.

Sample chart:
Part # Request Date Completed Date

1234 April 23/06

Thanks

Hey,
try this change event macro in the sheet module:
-----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Select Case Target.Column

Case 2

If Target.Offset(0, -1).Value > "" Then

Target.Offset(0, 1).Value = Format(Now(), "mm/dd/yyyy")

Else

Target.Offset(0, 1).Value = ""

End If

End Select

End Sub
----------------------------------------
Ben