here is the script:
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long

If Target.Count 1 Then Exit Sub
If Target.Address = "$C$16" Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
r = Cells(Rows.Count, 1).End(xlUp).Row
If Target.Value = Sheets("Lists").Range("A1").Value Then
Sheets("Lists").Range("C2").Value = ""
Else
Sheets("Lists").Range("C2").Value = Target.Value
End If

Range("a20:P" & r).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Sheets("Lists").Range("C1:C2"), Unique:=False
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long

If Target.Count 1 Then Exit Sub
If Target.Address = "$G$16" Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
r = Cells(Rows.Count, 1).End(xlUp).Row
If Target.Value = Sheets("Lists").Range("D1").Value Then
Sheets("Lists").Range("E2").Value = ""
Else
Sheets("Lists").Range("E2").Value = Target.Value
End If

Range("a20:P" & r).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Sheets("Lists").Range("f1:f2"), Unique:=False
End If
End Sub


thanks, greg


"Greg" wrote:

I found a vb program and modified it to work on my spreadsheet. It's
activated based on cell a1. I copied it again and changed it to activate on
g1. a1 gives me customers and g1 gives me the customers by the designated
month. Both work individually but not pasted in the same book. I'm a pure
rookie. Any suggestions?
Thanks, Greg