Elnézést, az elején a Dim-ek alól kimaradt egy értékadás:

megall=false

(Volt ott még egy msgbox, meg egy goto is (azért van a rutin végén cimke), és kitöröltem azokkal együtt.)