Hello Pam,

If you right click on the Sheet3 name and select View code and copy the
following code into the VBA editor then each time you activate sheet3 it
should set the filters the same as sheet2. However with a caveat. If you are
using xl2007 you cannot set more than 2 options in a single dropdown filter.
(previous versions you can only select one or with custom you get to pick 2
using between etc.)

Private Sub Worksheet_Activate()
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim i As Long

Set ws2 = Worksheets("Sheet2")
Set ws3 = Worksheets("Sheet3")

'Ensure autofilter is invoked on Sheet3
With ws3
If Not .AutoFilterMode Then
.UsedRange.AutoFilter
End If
End With

With ws2
'Test if Autofilter invoked on sheet2
If .AutoFilterMode Then
'Test if an actual filter is set
If .FilterMode Then
With .AutoFilter
'Test each filter
For i = 1 To .Filters.Count
With .Filters(i)
If .On Then
If .Operator = 0 Then
ws3.AutoFilter.Range _
.AutoFilter _
Field:=i, _
Criteria1:=.Criteria1
Else
ws3.AutoFilter.Range _
.AutoFilter _
Field:=i, _
Criteria1:=.Criteria1, _
Operator:=.Operator, _
Criteria2:=.Criteria2
End If
End If
End With
Next i
End With
Else
If ws3.FilterMode Then
ws3.ShowAllData
End If
End If
Else
If ws3.FilterMode Then
ws3.ShowAllData
End If
End If

End With

End Sub



--
Regards,

OssieMac