sheet hide/unhide

Hi,
I have written a code attached in the MIS workbook,where if I click on button 1 in sheet 2,it will go back to sheet 1 and hide sheet 2,where I am getting an error vice versa please unhide sheet 1,and you will see 2 buttons in sheet 1,first button is to hide,unhide all sheets except sheet 1 and second button to unhide sheet 1