Ryd autofilter med VBA

Smid det her ind under "ThisWorkbook", så vil det blive afviklet "BeforeClose":


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For Each ws In ThisWorkbook.Worksheets
        If ws.FilterMode = True Then
            ws.ShowAllData
        End If
    Next ws
End Sub

Hej garrett
1000 tak for hjælpen, virker perfekt. Go' weekend