I have two sheets with autofilter. The code below works for the one sheet.
How can I list the two sheets in this code? Using Excel 2000Private Sub
Workbook_Open()
'check for filter, turn on if none exists
With Worksheets("Data")
If Not .AutoFilterMode Then
.Range("A1").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub

Also, The two sheets have different ranges

sheet1: A66
sheet2: C6:I6

"ADK" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
>I have two sheets with autofilter. The code below works for the one sheet.
>How can I list the two sheets in this code? Using Excel 2000Private Sub
>Workbook_Open()
> 'check for filter, turn on if none exists
> With Worksheets("Data")
> If Not .AutoFilterMode Then
> .Range("A1").AutoFilter
> End If
> .EnableAutoFilter = True
> .Protect Password:="password", _
> Contents:=True, UserInterfaceOnly:=True
> End With
> End Sub
>
>