Auto adjust sheets to specific range selection

Hi all,

I would like to adjust the zoom level of certain sheets in my workbook based on different selection.
The first one is the current code that I am using and it's working:

Please Login or Register  to view this content.

However, I would like to compile the code and comes out with this:

Please Login or Register  to view this content.

Unfortunately, it gives complie error here

Please Login or Register  to view this content.

Can anyone please help me to rectify the code?
Or show me what've I done wrong?

Thank you!

Hi Holger,

Your code working flawlessly!
Thank you very much!

Regards.