Kösz, ennyi. Jövök egy sörrel neked.
Én ide-oda rakosgattam a While Trim$(ActiveCell.Value) <> "" sort, de eszembe nem jutott, hogy betegyek a Wend elé egy Select-et.
köszönöm.