Office更新后，VBA Excel工作表方法不起作用

Question

I have a script that it takes datas from CSV file and after it generates a graphic. After many Office updates this script has finished to work. It isn't possible come back with Office version.

This is the code:

Dim sheet
    For Each sheet In ActiveWorkbook.Sheets
        Select Case sheet.Name
            Case "Archive": Sheets(sheet.Name).Delete
            Case "Trend":  Sheets(sheet.Name).Delete
            Case "PivotTable": Sheets(sheet.Name).Delete
        End Select
Next

I receive the follow error: "Application defined or object defined error". This error arrives on Select Case, because my object "sheet" hasn't the method "Name".

I have tryed to declare "sheet" as Worksheet

Dim sheet as Worksheet
    For Each sheet In ActiveWorkbook.Sheets
        Select Case sheet.Name
            Case "Archive": Sheets(sheet.Name).Delete
            Case "Trend":  Sheets(sheet.Name).Delete
            Case "PivotTable": Sheets(sheet.Name).Delete
        End Select
    Next

At the first cicle of script I haven't any problem, from the second cicle I have the error: "Type mismatch"

How can I solve it?

Thanks

Answer 1

Note : This is not necessarily the answer, but it is too long to write down as a comment.

You can keep your coding a lot cleaner and simplier: I prefer not to use sheet as it's very similer to Sheet . Also, it's better if you avoid using ActiveWorkbook .

Dim Sht             As Worksheet

For Each Sht In ActiveWorkbook.Sheets
    Select Case Sht.Name

        Case "Archive", "Trend", "PivotTable"
            Sht.Delete

    End Select

Next Sht

Answer 2

Sheets can contain Chart or Worksheets objects

then

if you want to delete Worksheets only then:

Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets '<-- loop through Worksheets collection
    Select Case sheet.Name
        Case "Archive": Sheets(sheet.Name).Delete
        Case "Trend":  Sheets(sheet.Name).Delete
        Case "PivotTable": Sheets(sheet.Name).Delete
    End Select
Next

if you want to delete both Worksheets and Charts then:

Dim sheet As variant '<-- a Variant variable can be assigned both a Worksheet and a Chart object
For Each sheet In ActiveWorkbook.Sheets '<-- loop through Worksheets and Charts collections
    Select Case sheet.Name
        Case "Archive": Sheets(sheet.Name).Delete
        Case "Trend":  Sheets(sheet.Name).Delete
        Case "PivotTable": Sheets(sheet.Name).Delete
    End Select
Next