в контексте

'.Range(.Cells(pr_str, iReestrOffset + 6), .Cells(pr_str, iReestrOffset + 6)).Validation.Add 3, 1, 1, l

никакой нах помощи в рунэте, устал искать. По сути в ячейку добавляется диапозон

из других ячеек ну что за 3, 1, 1, l ?????

фигово искал в рунете, а на мсдн даже не заглядывал.

(2) фигово написал текст, по сути мог вообще не писать

было так

l = "=$U$3:$U$" + Trim(str(.Cells(2, iReestrOffset + 20).Value + 2))
           .Range(.Cells(pr_str, iReestrOffset + 6), .Cells(pr_str, iReestrOffset + 6)).Validation.Add 3, 1, 1, l
           
1. спектральный анализ показал что на конце не цифра а буква
2. путем знакомства с отладчиком и перебора возможных ошибок было установлено что замена L исправляет ошибку
3. было выяснено что откуда берется и какие значения содержит

итоги - КАКАЯ то сволочь выключила буквенные обозначения ячеек. Вернул всё взад работает.