Hide and unhide rows in multiple sheets

Among other Tabs, my Live Workbook contains 8 x Tabs. – Sheet01, Sheet02, Sheet03, Sheet04, Sheet05, Sheet06, Sheet07, Sheet08.
Data in all tabs includes names in many rows with additional rows containing ZZZ in rows where names are not yet used.

I am trying to hide and unhide the rows containing ZZZ in all tabs using VBA code in Sheet01 and using that Code to hide / unhide all other sheets.

The attached WorkBook is an extract

The names are the same in all tabs and specific information is added in each Sheet.

The below code does not work correctly. I get an error as per below

Hope someone can assist please