OK - done!

VBA for Sheets Hide 2.xlsm

Hope that helps.