VBA：For...If...Delete 循环中的类型不匹配错误

Question

I'm creating a chart from VBA in Excel, which will be as its own sheet & not embedded in a sheet. As such, at the beginning of the script, I want to check to see if the sheet name already exists & if so, deletes it.

My code below throws a Run-time error '13': Type mismatch error at the For statement, but I can't see any reason why. Any ideas?

I'm using Excel in Office 365.

Sub CreateChart()
' Macro to create a chart based on a given cross section ID

Dim cht As Object
Dim xsID As Integer
Dim tabName As String
Dim ws As Worksheet

xsID = Worksheets("INPUT").Range("D6")

tabName = "XS_" & CStr(xsID)
Debug.Print tabName

For Each ws In ThisWorkbook.Sheets
    Debug.Print ws
    Application.DisplayAlerts = False
    If ws.Name = tabName Then
        ws.Delete
        Debug.Print "Sheet deleted."
    End If
    Application.DisplayAlerts = True
Next ws

Answer 1

If you're looking for a chart sheet, that's not a worksheet:

Dim myChart As Chart
For Each myChart In ThisWorkbook.Charts
    Debug.Print myChart.Name

    If myChart.Name = tabName Then
        myChart.Delete
    End If
Next