Thx for your reply. The macro should autmatically pick up the last row
used in column C.

I've tried what you suggested but it didn't work; probably my fault.

Shouldn't I do something with this line:
Set rng = sh.Range("A5").SpecialCells(xlCellTypeLastCell)


Paul

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!