Hi Friends,

I've got a workbook where I am trying to filter multiple pivot tables on seperate tabs based on a Drop-Down Validation list on a Summary tab.

The Dropdown cell (B7) on the summary is named range "CE"

On additional tabs I have three seperate pivots with like fields to the Drop-down. The filter cell above the pivots are also named ranges: "CEFilter","CE2Filter","CE3Filter"


The intention is that when I change the drop-down it will trigger a change event refresh and filter the pivots' filter cells on the corresponding tabs. Right now, I am using the VBA below. It works on two of the pivots exactly how I want it but when I try to add a third (CE3Filter) I get an error. I've double checked the named ranges. Any thoughts?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Target.Worksheet.Range("B7")) Is Nothing Then [CEfilter] = [CE]
If Not Intersect(Target, Target.Worksheet.Range("B7")) Is Nothing Then [CE2filter] = [CE]
If Not Intersect(Target, Target.Worksheet.Range("B7")) Is Nothing Then [CE3filter] = [CE]
ThisWorkbook.RefreshAll
End Sub


Thanks for the help!