Attribute VB_Name = "testsheetope1" Sub ƒeƒXƒg() Worksheets("Sheet2").Visible = False End Sub