excel VBA匹配不同工作表上的2个单元格如果匹配则删除工作表

Question

我的表格名为LIST，单元格K15是一些值。我需要的是宏检查所有其他工作表，如果它匹配工作簿中所有其他工作表上的（LIST） - （K15）到单元格（B4）的值，它将始终是那个地方（B4）。如果匹配则删除该表。

所以它是某种匹配循环宏。

请帮帮我

Sub DeleteSheets01()

 Dim ws As Worksheet
 For Each ws In ActiveWorkbook.Worksheets
   If Worksheets("LIST").Range("K15") = LenB(ActiveSheet.Range("B4")) Then ActiveSheet.Delete
 Next ws
 End Sub

Answer 1

我做到了

Sub DeleteSheets01()

Application.DisplayAlerts = False
Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets
   If ws.Range("B4") = Worksheets("LIST").Range("K15") Then
       ws.Delete
   End If
  Next ws
 Application.DisplayAlerts = True
End Sub