nevermind, my explanation is prolly to confusing, ill try something else,
thanx anyway
--
"The difference between Possible and Impossible is the measure of ones will"
"NickHK" wrote:
> 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" <(E-Mail Removed)> wrote in message
> news:066E3E36-7F32-47F8-9431-(E-Mail Removed)...
> > 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"
>
>
>
|
