Luc,
Da's er inderdaad eentje dat niet direct opvalt.
Bij "Sub prijs_7_rooster()" staat op regel 7 "Set b = Range("r8:r18").Find([W2].Value)"
Maak daar eens van:
Set b = Range("r8:r18").Find([W2].Value,,,xlWhole)
't Zal meteen wel goed werken!
Groeten,
pitufo