VBA自动筛选器隐藏单元格上的interior.colorindex使用#VALUE结束功能

Question

I'm getting a bizarre problem when using VBA to autofilter. A cell in the top row (O1) contains a reference to a user-defined function to check the color of another cell (F2). If I manually autofilter so the referenced cell F2 is hidden, the function works fine. If I have a VBA script performing the EXACT SAME FILTER (I used Macro Record to make sure), it returns a #VALUE! error. Stepping through the code in debug mode, it hits the Interior.ColorIndex line - and silently exits the function (returning #VALUE!) without hitting the next Stop or generating a VBA error.

Cell O1 contains:

=stupidFunction()

VBA code:

Function stupidFunction()
Application.Volatile True
Calculate
Stop
stupidFunction = Range("F2").Interior.ColorIndex
Stop 'VBA autofilter never gets here, manual autofilter does!
End Function


Sub TestFilter()
'
' TestFilter Macro
'

'
    ActiveSheet.Range("$A$1:$F$82").AutoFilter Field:=6, Criteria1:= _
        "=*Approval*", Operator:=xlAnd
End Sub

Any idea what's going on?

Answer 1

I can confirm the same behavior, but adding

ActiveSheet.Calculate 

immediately after applying the VBA filtering fixes it (as does manually re-triggering the formula)