Microsoft Visual Basic，运行时错误 424：需要对象

所以我知道这个错误一次又一次被问到，但我找不到一个可以复制我遇到的问题的错误。

以下是在 PERSONAL.XLSB 工作簿中声明的，因此我可以轻松地在不同的项目中使用该宏。当我在 for 循环中添加第二个 If 块时，错误开始出现，请注意，此宏在上述添加之前按预期工作。

Sub AddNote()
Dim Dict As New Scripting.Dictionary
Dict.Add "101-104", "Includes 101, 102, 103, 104"
Dict.Add "061, 071", "Includes 061, 071"
Dict.Add "076, 077, 081", "Includes 076, 077, 081"
Dict.Add "111, 112, 113, 221, 222", "Includes 111, 112, 113, 221, 222"
Dict.Add "111, 112, 221, 222", "Includes 111, 112, 221, 222"
Dict.Add "111-115, 221, 222", "Includes 111, 112, 113, 114, 115, 221, 222"
Dict.Add "101-104 Early", "Includes 101, 102, 103, 104"
Dict.Add "101-104 Late", "Includes 101, 102, 103, 104"
Dict.Add "101-104 Mid", "Includes 101, 102, 103, 104"
Dict.Add "111-115, 221, 222 Early", "Includes 111, 112, 113, 114, 115, 221, 222"
Dict.Add "111-115, 221, 222 Late", "Includes 111, 112, 113, 114, 115, 221, 222"
Dict.Add "161-164", "Includes 161, 162, 163, 164"
Dict.Add "161-164 Early", "Includes 161, 162, 163, 164"
Dict.Add "161-164 Late", "Includes 161, 162, 163, 164"
Dict.Add "131, 132", "Includes 131, 132"
Dict.Add "062, 064, 066-068", "Includes 062, 064, 066, 067, 068"
Dict.Add "078, 104, 105-107", "Includes 078, 104, 105, 106, 107"
Dict.Add "104, 108, 121", "Includes 104, 108, 121"
Dict.Add "231, 241, 242", "Includes 231, 241, 242"
Dict.Add "072, 074", "Includes 072, 074"
Dict.Add "231, 241, 242 Early", "Includes 231, 241, 242"
Dict.Add "231, 241, 242 Late", "Includes 231, 241, 242"
Dict.Add "114, 115", "Includes 114, 115"

Dim Rng As Range
Dim ws1 As Worksheet
Set ws1 = Sheets("BY HUNT")
Set Rng = ws1.Range("A2:A162")
For Each cell In Rng
    If Dict.Exists(VBA.Trim(cell)) Then
        ws1.Range("AA" & cell.Row).Value = Dict.Item(VBA.Trim(cell.Value))
    End If

    If VBA.Trim(cell.Value) Like "*Early*" Then
        wsl.Range("Z" & cell.Row).Value = "Early"
    ElseIf VBA.Trim(cell.Value) Like "*Late*" Then
        wsl.Range("Z" & cell.Row).Value = "Late"
    ElseIf VBA.Trim(cell.Value) Like "*Mid*" Then
        wsl.Range("Z" & cell.Row).Value = "Mid"
    Else
        wsl.Range("Z" & cell.Row).Value = "All"
    End If

Next cell

End Sub

我对 VBA 并没有过多的经验，但我确实阅读了我在这里找到的与我的相关的其他问题，但没有一个结果。我不明白为什么我可以弄乱第一个 if 语句中的值，但在第二个中我得到标题中提到的错误。Debug 指向 else 子句中的那一行，如果我删除那一行，则调试只指向第二个 if 块中的另一行。任何方向将不胜感激。