macro that auto adjusts height of cells does not work when run with command button

I found this great macro which adjusts the height of cells when a worksheet is activated (see macro below). I would like to activate the macro from a command button on a different worksheet within the same workbook, but I cannot get it to work. I tried adding the macro to a "Private Sub CommandButton1_Click()" function and included a line to activate the correct worksheet but it doesn't seem to work


THE ORIGINAL CODE THAT WORKS

Please Login or Register  to view this content.

THE UPDATED CODE THAT DOESN"T WORK

Please Login or Register  to view this content.

Thank you!

I saved the body of this macro to Module 1 and changed the line "Private Sub worksheet_activate()" to "sub auto_resize()" then added the following code to the command button located on another worksheet and it worked:

Please Login or Register  to view this content.