Calculating Max and Min Value of RTD without capturing them.

[SamT]

With Range("A1")
If .Value = 0 Then
.Value = RTD
Else
.Value = Min(.Value, RTD)
End If
End With

Range("B1") = Max(Range("B1"), RTD)
Range("C1") = Range("C1") + RTD
Range("D1") = RTD_Count
Range("E1") = Range("C1") \ Range("D1") 'Average RTD