Need Help Tweeking Code

[Frith]

Hi,

Anyone know how I might tweek the below code such that it no longer aplies (null) if cell A50 contains any text?

Thanx a lot,
Frith



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D3:D50,F3:F50")) Is Nothing Then
If Target.Value = vbNullString Then
Target.Value = Format(Now, "ttttt")
End If
End If
End Sub

 

[VoG]

Try

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D3:D50,F3:F50")) Is Nothing Then
    If Target.Value = vbNullString And Range("A50").Value = vbNullString Then
        Target.Value = Format(Now, "ttttt")
    End If
End If
End Sub

Please use Code Tags when posting code

[code]
your code
[/code]

 

[Frith]

Thanx again!