Hello,

A suggestion without VBA:

1. Define name a:
=A1:E1
(your input area)

2. Enter into F1 (the first adjacent cell to the right from a):
=2*MAX(A1:E1)-MIN(A1:E1)

3. Select A1:E1 and enter conditional format (formula):
=MIN(LARGE(OFFSET(a,0,1);ROW(INDIRECT("1:"&COUNTA( a))))-
LARGE(a,ROW(INDIRECT("1:"&COUNTA(a)))))
with a convenient format.

Regards,
Bernd