Excel 97 SR-

Trying to allow Auto Filter on a Protected workbook. The following code works fine when I protect the worksheet and workbook. But then when I make it Shared I get a run-time error '1004' Protect method of worksheet type class failed whever I click on a new worksheet.

Private Sub Workbook_SheetActivate(ByVal Sh As Object
With ActiveShee
.EnableAutoFilter = Tru
.Protect DrawingObjects:=True,
contents:=True, Scenarios:=True, UserInterfaceOnly:=Tru
End Wit
End Su

Thank

Brenda