Need Help "Blending" Code

[Frith]

Hi all,

I'm just trying to get...


THIS CODE:


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


...TO WORK WITH THIS CODE:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A3:A50")) Is Nothing Then
If Target.Count = 1 Then
Target.PasteSpecial xlPasteAll
End If
End If

End Sub


I keep getting that "ambiguous conflict" message, and I forgot how to integrate synonymous macro types.

Thanx a lot,
Frith

 

[shg]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A3:A50")) Is Nothing Then
        If Target.Count = 1 Then
            Target.PasteSpecial xlPasteAll
        End If
    ElseIf Not Intersect(Target, Range("D3:D50,F3:F50")) Is Nothing Then
        If Target.Value = vbNullString And Range("A50").Value = vbNullString Then
            Target.Value = Now
        End If
    End If
End Sub