删除名称以特定值开始的表格

我想删除名称以“data as at”开头的工作表。 我已经使用了以下但不工作。

For Each SheetExists In Worksheets If Left(SheetExists.Name, 10) = "Data as at" Then Application.DisplayAlerts = False Sheets(Left("Data as at", 10)).Delete Application.DisplayAlerts = True Exit For End If Next SheetExists 

它回来以下行的下标错误。

 Sheets(Left("Data as at", 10)).Delete 

Answer 1

Sheets(Left("Data as at", 10)).Delete

SheetExists.Delete