Thank you for the quick reply.
I must be doing something wrong. When I enter 4 digits in E5 and press Enter, nothing happens.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Range("E5"), Target) Is Nothing Then Call filter_site

End Sub
__________________________________________________________________________

Sub filter_site()
'
' filter_site Macro
' Macro recorded 3/28/2007 by bob
'


    data = Cells(5, 5)
    Selection.AutoFilter Field:=4, Criteria1:=data
    Sheets("MAL_Chans").Select
    Selection.AutoFilter Field:=2, Criteria1:=data
    
    Sheets("Detail_TRX").Select
    ' Selection.AutoFilter Field:=6, Criteria1:="BCCHFREQ"
    ' ActiveSheet.ShowAllData
    Selection.AutoFilter Field:=1, Criteria1:=data
        
    Sheets("Detail_CHN").Select
    ' Selection.AutoFilter Field:=5, Criteria1:="0"
    ' ActiveSheet.ShowAllData
    Selection.AutoFilter Field:=1, Criteria1:=data
    Selection.AutoFilter Field:=5, Criteria1:="0"
    
    Sheets("BTS").Select
    

End Sub