Dim Min as long
Dim Max as long
Dim TWERT as long
 
Min =99999999
Max=00000000
For i=lbound(array) to ubound(array)
   Twert=Format(Array(i),"yyyymmdd")
   If Min>twert then MIN=Twert
   If max<twert then max=twert
Next

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)