Reply to thread

Message: [QUOTE="robs3131, post: 6326018"] Thanks for your input. The shapes are command buttons. What I find strange is that the following code does work. Any idea on why this code works and my initial code does not? Dim sh As Worksheet 'Select Main Menu, hide all other sheets, and protect Main Menu Sheets("Main Menu").Visible = xlSheetVisible Sheets("Main Menu").Select For Each sh In ActiveWorkbook.Sheets If sh.Name <> "Main Menu" Then sh.Visible = xlVeryHidden Else End If Next Sheets("Main Menu").Activate Sheets("Main Menu").linksalesin.Enabled = False Sheets("Main Menu").linksaleshis.Enabled = False Sheets("Main Menu").cjsalesin.Enabled = False Sheets("Main Menu").cjsaleshis.Enabled = False Sheets("Main Menu").perfsalesin.Enabled = False Sheets("Main Menu").perfsaleshis.Enabled = False Sheets("Main Menu").linkpayin.Enabled = False Sheets("Main Menu").linkpayhis.Enabled = False Sheets("Main Menu").cjpayin.Enabled = False Sheets("Main Menu").cjpayhis.Enabled = False Sheets("Main Menu").perfpayin.Enabled = False Sheets("Main Menu").perfpayhis.Enabled = False Sheets("Main Menu").intierdata.Enabled = False Sheets("Main Menu").commdetrpt.Enabled = False Sheets("Main Menu").transclearbyaff.Enabled = False Sheets("Main Menu").viewtransclearbyaff.Enabled = False Sheets("Main Menu").cmdarchive.Enabled = False Sheets("Main Menu").cmdclearall.Enabled = False Sheets("Main Menu").cmdlinktiemerch.Enabled = False Sheets("Main Menu").perfopeninvoices.Enabled = False [/QUOTE]