Autofliter gaat spontaan uit bij delen

[KeBr]

Ik heb een probleem met autofliter.
Het autofliter staat in rij 3, het resultaat komt in rij 2 met de formule =AutoFilter_Criteria(F4) als ik de werkmap deel (verouderd) en het wordt door een collega geopend is het autofliter weg. Bij mijzelf werkt het wel in gedeelde werkmap.
Mogelijk zit de oorzaak in de macro die hieraan verbonden is hiervoor gebruik ik:
Function AutoFilter_Criteria(Header As Range) As String

Dim strCri1 As String, strCri2 As String
Application.Volatile
With Header.Parent.AutoFilter
With .Filters(Header.Column - .Range.Column + 1)
If Not .On Then Exit Function
strCri1 = .Criteria1
If .Operator = xlAnd Then
strCri2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
strCri2 = " OR " & .Criteria2
End If
End With
End With
'AutoFilter_Criteria = UCase(Header) & ": " & strCri1 & strCri2
AutoFilter_Criteria = Replace(strCri1 & strCri2, "=", "")
End Function


Heeft iemand een idee wat er fout gaat.

Ik heb het momenteel opgelost door een extra macro en daar een knop voor in het blad gezet. Misschien niet de mooiste oplossing, maar het werkt wel.