Hi Paul,

Am Thu, 28 Mar 2013 13:06:52 +0100 schrieb Paul:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E19")) Is Nothing Then
Range("E20") = Range("E19")
End If
End Sub

for me the procedure works. You can also try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$19" Then [E20] = Target
End Sub

This code must be placed in code module of the sheet.
Right click on sheet tab = Show code.


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2