触发事件

sxl19880223

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim File, path, i
path = "F:\VBA学习\2019年11月合并财务报表\天津国威-小合并完成\"
File = Dir(ThisWorkbook.path & "\*财务报表.xls*", vbNormal)
Set ws = Worksheets
i = 1
For i = 1 To 50
If ws("双击文件删除").Cells(i, 1).Formula = File Then
Kill path & File
ws("双击文件删除").Rows(i).Delete
End If
Next i
End Sub


各位大神，我想实现双击单元格，对应删除该单元格所在行，同时删除对应的工作簿，但是我这个代码只能实现从第二行开始STEP+1的删除（就是我想删除第九行及对应的工作簿，双击后它会删除第二行及其对应的工作簿，然后依次第三行，第四行）
求大神们帮忙