Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("C2")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Application.ScreenUpdating = False
If Target.Address = "$C$2" Then
Range("C4").Value = Range("G6").Value
End If
Application.ScreenUpdating = True
End If
End Sub
|