Not sure of the logic of what you are trying to achieve, but use the
Worksheet_SelectionChange event :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = Range("D2").Address Then
Range("L4").Value = ""
Else
Range("L4").Formula = "=TODAY()"
'Or
'Range("L4").Formula = Now()
End If

End Sub

NickHK

"Kelzina" wrote in message
...
basically i want to insert a date in to one cell but only if i select
another
cell... make sense??? i attempted the following but had no result
considering
the Range("D3").... selects the cell... can anyone help
Sub Insert_Date()

If Range("D2").Select Then
cell = ("L4") = ""
Else
cell = ("L4") = "=TODAY()"
End If

End Sub
--
"The difference between Possible and Impossible is the measure of ones
will"