I have updated the code on you previous question and added the Home macro.
This code works as long as there aren't any HIDDEN sheets, in which case it returns an error.
The code needs to take into account where the hidden sheets are, i.e. the first, the last or somewhere in the middle, each case needs to be handled.
So while I take a moment an think about how to handle this I have not done the 'deactivate' sheet code.