実行時エラー「91」：オブジェクト変数またはWithブロック変数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がオブジェクトに割り当てられていないことを示します。具体的には、ワークシート。