Ez nem jó a validációs listák megkereséséhez?:

.SpecialCells(xlCellTypeAllValidation).Select

makrórögzítő...

(ctrl+g, irányított, Adatérvényesítés bejelöl...)