Add this to the Workbook Open code:


Private Sub Workbook_Open()
Sheets("sheetname").Select
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
End Sub


Replace sheetname with the name of your worksheet containing the AutoFilter.
And add as many lines as necessary for each column that is filtered.

HTH,
Elkar


"George" wrote:

On my spread sheet I am using the Auto Filter and it works ok. My problem is
the spread sheet is shared on a LAN my all the office personnel use it and no
one ever puts all the columns back to the sort "All" default. Is there a way
to make the spread sheet when its closed reset all columns to the "All"
default so the next person doesn't have to make all the corrections to return
the sheet to it's normal view.

Thanks - George