Many many thanks for going the extra mile p45Cal. We are nearly there.
I have attached a part of the actual workbook without the external links for better troubleshooting of some problems, like:
The workbook contains more than 20 sheets and the bottom line code should run on select/active sheets only. I tried removing the "next ws" line but it created a chain of errors