Doh, stupid strikes again !

It was because of the Range (..).Select statements, moving to a
different cell and causing a re-invocation of the code. Remove them
and all works fine.

Apologies for the "multiple posts", another network glitch.

Regards
Fred