Vba Excel错误，包含intersect代码

下午好！我有另一个问题，似乎无法解决。通过这种方式，太长的filter宏，我有一段代码可以查找某个范围内的活动单元格，如果有，则执行一个筛选器：

       ElseIf Not (Intersect(ActiveCell, OpenFindingsRange)) Then
    SourceFindings.Select
        'Unfilter data
        Application.Goto (Sheets("Source-Findings").Range("A1"))
        If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

    ActiveSheet.ListObjects("tblFindings").Range.AutoFilter Field:=6, Criteria1:=FilterOperatingGroup
    ActiveSheet.ListObjects("tblFindings").Range.AutoFilter Field:=36, Criteria1:=OpenStatus
    ActiveSheet.ListObjects("tblFindings").Range.AutoFilter Field:=37, Criteria1:="Yes"

如果活动单元格不在该范围内，它应该转到下一个Else If语句，但这不会发生。我得到以下错误：未设置对象变量或With block变量

我无法回避这个问题，无论出于何种原因，我都无法让错误处理绕过它

想法

谢谢

Intersect（）在您使用它时，将返回一个范围而不是布尔值。

非常感谢！我添加了“Set isect1=Application.Intersect（ActCell，OpenFindingsRange）”和“ElseIf Not isect1 Is Nothing then”，解决了这个问题。谢谢