Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 182
  • Last Modified:

Excel --- Deleting a Macro?

Hi,

How can I delete all macros on a workbook/worksheet using VBA?

Thanks.
0
SLE
Asked:
SLE
1 Solution
 
MTroutwineCommented:
I don't know of a way to delete the macros' themselves but you can delete the module that they reside in:

Sub DeleteModule()
   
    ' Local Variable Declarations:
    Dim objModule As Object
    Dim wbkBook As Workbook
   
    ' **** THIS LINE IS OPTIONAL IF THE SPREADSHEET IS
    ' **** ALREADY OPEN YOU DON'T NEED IT!
    'Workbooks.Open FileName:="C:\Book1.xls"
       
    ' Instantiate the objects:
    Set wbkBook = ActiveWorkbook
    Set objModule = wbkBook.Excel4IntlMacroSheets
   
    ' Delete the module:
    objModule.Remove VBComponent:=objModule.Item("Module2")

End Sub

Hope this helps!
:>)
0
 
tureCommented:
SLE,

This procedure deletes all VBA code in the active workbook.

Sub DeleteAllVBACode()
  'For this to work, you must set a reference to the
  'MS Visual Basic for Applications Extensibility library
 
  Dim vbc As VBComponent
  Dim cm As CodeModule
  For Each vbc In ActiveWorkbook.VBProject.VBComponents
    Set cm = vbc.CodeModule
    cm.DeleteLines 1, cm.CountOfLines
  Next vbc
End Sub

Ture Magnusson
Karlstad, Sweden
0
 
SLEAuthor Commented:
Thanks also to ture...
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now