времени выполнения «91»: Переменная объекта или переменная блока не установлен VBA

Question

Я получаю Run-time error '91': Object variable or With block variable not set в этой части:

Dim cn As ADODB.Connection: Set cn = New ADODB.Connection 

    schema_nm = dbsheet.cb_BU.Value 

    If conn_to_SQL(cn) = False Then 
     Exit Sub 
    End If 

    Call any_action(cn, "Load Part") 
    If Not user_active = 1 Then 
     Exit Sub 
    End If 

    Application.ScreenUpdating = False 
    Application.Calculation = xlCalculationManual 
    SkipSave = True 


    If MDIsheet.AutoFilter.FilterMode = True Then MDIsheet.ShowAllData <----HERE 

Любое предложение?

Answer 1

Сообщается, что MDIsheet не был назначен объекту. В частности, рабочий лист.