Determine print area for all sheets

Hi there,
thank you very much for your help and your effort. I am not sure why but the code contains a bug. I guess it is due to the fact that the sheets have names?
I put the code into a module. I attached a screenshot of the VBE including the error message
Regards