Sub FilterSteveA()
Dim fname As String
Dim wks As Worksheet
'ok, this macro is still not working correctly.
'for some reason that I'm unable to identify it selects a text filter instead of
'the name in the list below text filter.
'One thing that comes to mind is that since I'm using the name as a filter criteria,
' the names are in fact different-- because what the permit database can handle differs from
' what the print outs from the excel spreadsheets can handle.
'Something to consider.......
fname = ActiveSheet.Name
fname = Right(fname, 3)
 
mv = Range("f2").End(xlDown).value  ' this sets the criteria for the ChgAppl#.
 
mv1 = Range("a2").End(xlDown).value 'this is my add-on to set a second criteria filter- Name of owner.
'mv2 = fname
 
For Each wks In ActiveWorkbook.Worksheets
    If LCase(Left(wks.Name, 3)) Like "sum" Then
 
 
            With wks
 
            Select Case fname
                Case "76a", "187", "718"
 
                    Sheets(wks.Name).Range("A15:g15").AutoFilter field:=2, Criteria1:=fname  'this is to take into account the claim number
             End Select
 
                Sheets(wks.Name).Range("A15:g15").AutoFilter field:=1, Criteria1:=mv ', this takes in to acct the chg appl# for a filter.
 
                Sheets(wks.Name).Range("A15:g15").AutoFilter field:=4, Criteria1:=mv1 ',   'this takes in to account the owner name for a filter.
 
            End With
    End If
 
Next wks
 
End Sub