Sub 非表示シートを再表示する()
    
    Worksheets("Sheet1").Visible = True
    
End Sub