Hi,
Try replacing all your code with:
Code:
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo oops
If Not Intersect(Target, Range("b1")) Is Nothing Then
Application.EnableEvents = False
Range("C1").Value = Range("B1").Value
Application.EnableEvents = True
ElseIf Not Intersect(Target, Range("B3").Precedents) Is Nothing Then
Application.EnableEvents = False
Range("C3").Value = Range("B3").Value
Application.EnableEvents = True
End If
Exit Sub
oops:
Application.EnableEvents = True
End Sub
Bookmarks