Private Sub Workbook_Open()
On Error Resume Next
Dim ws As Worksheet
'check for filter, turn on if none exists
For Each ws In ActiveWorkbook.Worksheets
With ws
If Not .AutoFilterMode Then
.Range("").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="", _
Contents:=True, UserInterfaceOnly:=True
End With
Next
Worksheets("Sheet1").Activate
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"George Gee" wrote in message
...
Hi all.

I have following code in a workbook, it protects all sheets,
and turns on autofilter. (Excel 200).

Private Sub Workbook_Open()
On Error Resume Next
Dim ws As Worksheet
'check for filter, turn on if none exists
For Each ws In ActiveWorkbook.Worksheets
With ws
If Not .AutoFilterMode Then
.Range("").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="", _
Contents:=True, UserInterfaceOnly:=True
End With
Next
End Sub


Can I add to this, to always open the workbook at a particular
worksheet, regardless of where it was last closed (saved)?
Any help with this code much appreciated.

Many thanks

George Gee