Andrew, that most certainly did the trick! Thank you very much, my problem is now solved.

I changed:
1. in the difinitions, Worksheets to Worksheet and
2. in the code quoted above, Worksheets to Sheets