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

Формулировка задачи:

У меня оффис 2010. Подскажите почему выдает ошибку

object variable or with block variable not set

и показывает

wsDict.Select

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

Решение задачи: «Что за ошибка object variable or with block variable not set»

textual
                            Листинг программы 
                        

                            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
                        