Auto filtering

Hi all

I have an issue with the excel filters.

When I reopen my excel sheet is has forgot my defined filters. It is still checked if I open the drop-down, but not filtered before I press OK again.

Anyone who can help, so it automatically uses the defined filters?

Thanks

I have used this code, but cannot make it work. Just pasted it in the "view code" window.

Private Sub Worksheet_Change(ByVal Target As Range)

If Me.FilterMode = True Then
With Application
.EnableEvents = False
.ScreenUpdating = False
End With

With ActiveWorkbook
.CustomViews.Add ViewName:="Mine", RowColSettings:=True
Me.AutoFilterMode = False
.CustomViews("Mine").Show
.CustomViews("Mine").Delete
End With


With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End If

End Sub