Δεν είναι δυνατή η διαγραφή όλων των ειδών των ενοτήτων, δεν μπορείτε να διαγράψετε τις κωδικές ενότητες για τα φύλλα εργασίας,
διαγράμματα και ThisWorkbook. Σε αυτές τις ενότητες πρέπει να διαγράψετε το περιεχόμενο αντί για το ίδιο το module:
Sub DeleteModuleContent (ByVal wb As Workbook, _ ByVal DeleteModuleName As String) 'διαγράφει τα περιεχόμενα του DeleteModuleName σε wb' χρησιμοποιήστε το αν δεν μπορείτε να διαγράψετε τη μονάδα On Error Resume Next With wb.VBProject.VBComponents (DeleteModuleName) .CodeModines 1, .CountOfLines Λήξη με On Error GoTo 0 End Sub
Παράδειγμα:
DeleteModuleContent ActiveWorkbook, "Sheet1"