No es posible eliminar todo tipo de módulos, no se pueden eliminar los módulos codificados de las hojas de trabajo,
gráficos y ThisWorkbook. En estos módulos tienes que eliminar el contenido en lugar del módulo en sí:
Sub DeleteModuleContent (ByVal wb As Workbook, _ ByVal DeleteModuleName As String) 'elimina el contenido de DeleteModuleName en wb' use esto si no puede eliminar el módulo En caso de error, reanude el siguiente con wb.VBProject.VBComponents (DeleteModuleName) .CodeModule .DeleteLines 1, .CountOfLines finaliza con un error Ir a 0 End Sub
Ejemplo:
DeleteModuleContent ActiveWorkbook, "Hoja1"