ahhhh okay. right so my idea would be then. is there a way to change the below, so that every time a account number is selected it names that range so that then Mail_Range can reference those named ranges? 

Dim pi As PivotItem  
With ActiveSheet.PivotTables(1).PivotFields("Account Number") 
     
    For Each pi In .PivotItems 
         
        .CurrentPage = pi.Name 
    Next  End With