---

Sub DeleteVedomost()
    Call DropTable("Зачетная ведомость")
    MsgBox "Таблица 'Зачетная ведомость' удалена"
End Sub