24/09/13 21:35:37.59 pOLLC01h.net
>>494
Dim maxValue As Double
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5")) Is Nothing Then
If Target.Value > maxValue Then
maxValue = Target.Value
Range("B5").Value = maxValue
End If
End If
End Sub