deleting hidden rows from multiple sheets with vba

Question

I took this code from here: Optimize performance of Removing Hidden Rows in VBA

I\'ve tried to modify it to delete hidden rows from all the sheets, but I can\'t get i