如何判断宏表的存在，并删除指定的宏表？【已解决】

ming668

请问在一个工作薄中有宏表Macro1、Macro2、Macro3，和工作表Sheet1、Sheet2、Sheet3.......
如何用VBA 判断是否存在Macro开头的宏表，同时删除Macro开头的宏表。
网上找到的都是删除工作表的，对宏表的好象不起作用。

答案在2楼和5楼

maditate

Sub 删除宏表()
Application.DisplayAlerts = False
For Each shtnext In Sheets
    If shtnext.Type = xlExcel4MacroSheet Then
       shtnext.Delete
    End If
Next shtnext
Application.DisplayAlerts = True
End Sub

ming668

原帖由 maditate 于 2011-10-7 12:07 发表
Sub 删除宏表()
Application.DisplayAlerts = False
For Each shtnext In Sheets
    If shtnext.Type = xlExcel4MacroSheet Then
       shtnext.Delete
    End If
Next shtnext
Application.DisplayAlerts = True
End Sub

谢谢！删除宏表成功，但只能删除全部宏表，不知能否批量删除指定宏表。如Macro开头的

ming668

怎么还没人回答呢？

subend

ming668 发表于 2011-10-8 16:45
怎么还没人回答呢？

增加条件： shtnext.Name Like "Macro*"

Sub 删除宏表()
    Application.DisplayAlerts = False
    For Each shtnext In Sheets
        If shtnext.Type = xlExcel4MacroSheet And shtnext.Name Like "Macro*" Then
            shtnext.Delete
        End If
    Next shtnext
    Application.DisplayAlerts = True
End Sub

ming668

subend 发表于 2011-10-8 17:45
增加条件： shtnext.Name Like "Macro*"

Sub 删除宏表()

谢谢，搞定！