Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
On Error Goot ws_exit:
If Target.Address = Range("fa7").Address Then
Range("fc7").Value = Range("fa7").Value
Range("fa7") = "Card Entered"
End If

ws_exit:
Application.EnableEvents = True
End Sub


--
HTH

Bob Phillips

"choice" wrote in message
...


I have a this code.
the problem is when the "Card Entered" part is also a value change...so it
just keeps repeating. is there a way to make it so if value = "Card
Entered"
the code does not run

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("fa7").Address Then
Range("fc7").Value = Range("fa7").Value
Range("fa7") = "Card Entered"
End If
End Sub

ThaNKS in advance