[Paul S]

I am using excel 2000

How can I make the following code, saved in the This Workbook module available to

either all worksheets in the workbook

or specifically an additional worksheet called "Commission Achievement" as well as the "Missing Data" worksheetin my workbook

The code allows filterring on protected sheets

Private Sub Workbook_Open()
'check for filter, turn on if none exists
With Worksheets("Missing Data")
If Not .AutoFilterMode Then
.Range("A3").AutoFilter
End If
.EnableAutoFilter = True
.Protect _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub


Thanks

Paul