multijet grazie per la risposta.
La modifica che suggerisci non funziona, in quanto hai tolto sMinAnnoy = sMaxAnno nell'If che determina il Max (If sDataLv > sMaxAnno Then). In tal modo la variabile sMinAnnoy non viene caricata e, risultando vuota, è sempre minore di sDataLv (If sDataLv < sMinAnnoy Then), con conseguente fallimento dell'If che determina il Minimo.
Ti ringrazio comunque dell'intervento.