Hi,

Here is some sample code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("C3"))
If Not isect Is Nothing Then
IF [C3]<"" Then
[A1]=Now
Else
[A1]=""
End If
End Sub

An FYI: in formulas where you want to display blank use "" not " ".



If this helps, please click the Yes button.

"FirstVette52" <(My User name is Firstvette 52, too) firstvet52@(my ISP
E-mail provider is) netzero.com wrote in message
...
Hey and thanks in advance

I need to insert the current date and time into a cell (that will not
update
again) IF another cell is not empty:

IF(C30,NOW()," ")

However, this formula allows the date and time to update each time the
workbook functions update. I need the date to be fixed.

Thx!
--
FirstVette52