使用用户窗体删除多个工作表上的特定行
Deleting a specific row on multiple worksheets using a userform

我正在开发一种跟踪学生评估的工具，并且正在使用用户表格来管理学生数据。

我已基于对先前问题的回答编写了代码，以删除工作簿中14个工作表上的同一行，该工作表上包含各种瞳孔数据，但在WshtNameCrnt.Rows(l).Delete处收到``Object required''错误。下面代码中的WshtNameCrnt.Rows(l).Delete行：

Private Sub cmbDelete_Click()
    Dim WshtNames As Variant
    Dim WshtNameCrnt As Variant

    WshtNames = Array("Pupil Data", "RWM", "Art", "Computing", "Design Technology", "Geography", "History_", _
                        "MFL", "Music", "PE", "RE", "Science", "Bookbands", "KS1 - TRP")

    Dim msgResponse As String    'confirm delete
        Application.ScreenUpdating = False
            msgResponse = MsgBox("This will delete the selected record. Continue?", _
            vbCritical + vbYesNo, "Delete Entry")

    Select Case msgResponse    'action dependent on response

        Case vbYes
            Dim l As Long
            l = ActiveCell.Row 'store currently active cell row

                For Each WshtNameCrnt In WshtNames
                    WshtNameCrnt.Rows(l).Delete
                Next

        'restore form settings
        With Me
            .cmbAmend.Enabled = False    'prevent accidental use
            .cmbDelete.Enabled = False    'prevent accidental use
            .cmbAdd.Enabled = True    'restore use
            'clear form
            Call ClearControls
            Call ResortData
        End With

    Case vbNo
        Exit Sub    'cancelled
    End Select
    Application.ScreenUpdating = True
End Sub

我认为问题是我的工作表名称数组的尺寸设置为变量，但不确定将其设置为对象并循环访问数组中工作表的最佳方法。

如果我的假设正确，请有人告诉我并建议/演示如何解决该问题？