Дефинирал съм по погрешка още веднъш J.

DIM J as long, Namereno as boolean, K as long, St as String

го направи:

DIM Namereno as boolean, K as long, St as String

То интерпретатора на ЕКСЕЛА сигурно щеше да ревне, ама знам ли... Дано нема още грешки че кода го писах направо тука.