Sub シートを削除する()
    
    Worksheets("Sheet1").Delete
    
End Sub