hi
not sure but i thing you are after this.....
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name = "Sheet1" And _
Range("D1") = "" And _
Range("K1") = "" Then
Range("K4") = Range("K3")
End If
End Sub


regards
FSt1


"GEdwards" wrote:

I need to evaluate 2 cells while inside an "Private Sub
Worksheet_SelectionChange(ByVal Target As Range)". I thought AND would work
but I cannot get it to work; I receive a syntax error on the AND(Range...
line.

Can someone please provide me the proper syntax to evaluate the 2 cells?

Here's my code...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name = "Sheet1" Then
And(Range("I3") < "", Range("K4") = "") Then
Range("K4") = Range("K3")
End If
End Sub