Что за ошибка object variable or with block variable not set

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 2 And Target.Row > 1 And Target.Cells.Count = 1 Then
        Set MyRange = ActiveCell
        Cancel = True
       wsDict.Select
        
       ' If Len(Target.Value) > 0 Then
           ' wsDict.Columns(1).AutoFilter Field:=1, Criteria1:="=" & Left$(Target.Value, 1) & "*"
       ' End If
    End If
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sNew As String
    If Target.Column = 2 Then
        With Application
            .EnableEvents = False
            sNew = Target.Value
            .Undo
            If Len(Target.Value) = 0 Then  'ß÷åéêà áûëà ïóñòîé  - ðàçðåøàåì ìîäèôèêàöèþ
                Target.Value = sNew
            End If
            .EnableEvents = True
        End With
    End If
End Sub

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 2 And Target.Row > 1 And Target.Cells.Count = 1 Then
        Set MyRange = ActiveCell
        Cancel = True
        wsDict.Select
        'Íåîáÿçàòåëüíûé ôèëüòð ïî ïåðâîé áóêâå
       ' If Len(Target.Value) > 0 Then
           ' wsDict.Columns(1).AutoFilter Field:=1, Criteria1:="=" & Left$(Target.Value, 1) & "*"
       ' End If
    End If
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sNew As String
    If Target.Column = 2 Then
        With Application
            .EnableEvents = False
            sNew = Target.Value
            .Undo
            If Len(Target.Value) = 0 Then  'ß÷åéêà áûëà ïóñòîé  - ðàçðåøàåì ìîäèôèêàöèþ
                Target.Value = sNew
            End If
            .EnableEvents = True
        End With
    End If
End Sub

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        Cancel = True
        If Target.Row > 1 Then
            If MyRange Is Nothing Then Exit Sub
            Application.EnableEvents = False
            With MyRange
                .Value = Target.Value
                .Parent.Select
                .Select
            End With
            Application.EnableEvents = True
        Else
        
        End If
    End If
End Sub

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call DeleteShortcut
   Application.OnKey Key:="^z"
   Application.OnKey Key:="^x"
End Sub
Private Sub Workbook_Open()
Application.OnKey Key:="^z", Procedure:="add_row"
Application.OnKey Key:="^x", Procedure:="dell_row"
 '   ActiveWorkbook.Unprotect Password:="112233"
 '   Sheets("ÌÒÐ").EnableOutlining = True
 '   Sheets("ÌÒÐ").Protect Password:="112233", Scenarios:=True, UserInterfaceOnly:=True
    Set wsDict = ThisWorkbook.Worksheets("Ñïðàâî÷íèê")
    Set MyRange = Nothing
    
Call CreateShortcut
 
End Sub

Global wsDict As Worksheet
 
Set wsDict = ThisWorkbook.Worksheets("Справочник товаров")