title: Multiple checkboxes controling pivot table filters
body: <p>I am trying to create a user friendly pivot table control. I have multiple macros set up to control the pivot table like so:</p>
  
  <pre><code>Sub FilterA()
  ActiveSheet.PivotTables("PivotTable2").PivotFields("A").CurrentPage = "TRUE"
  ActiveSheet.PivotTables("PivotTable2").PivotFields("B").CurrentPage = "(All)"
  ActiveSheet.PivotTables("PivotTable2").PivotFields("C").CurrentPage = "(All)"
  ActiveSheet.PivotTables("PivotTable2").PivotFields("D").CurrentPage = "(All)"
  ActiveSheet.PivotTables("PivotTable2").PivotFields("E").CurrentPage = "(All)"
  ActiveSheet.PivotTables("PivotTable2").PivotFields("F").CurrentPage = "(All)"
  End Sub
  
  Sub FilterB()
  ActiveSheet.PivotTables("PivotTable2").PivotFields("A").CurrentPage = "(All)"
  ActiveSheet.PivotTables("PivotTable2").PivotFields("B").CurrentPage = "TRUE"
  ActiveSheet.PivotTables("PivotTable2").PivotFields("C").CurrentPage = "(All)"
  ActiveSheet.PivotTables("PivotTable2").PivotFields("D").CurrentPage = "(All)"
  ActiveSheet.PivotTables("PivotTable2").PivotFields("E").CurrentPage = "(All)"
  ActiveSheet.PivotTables("PivotTable2").PivotFields("F").CurrentPage = "(All)"
  End Sub
  </code></pre>
  
  <p>and so on...</p>
  
  <p>What I want to do is be able to append these to check boxes, but be able to tick off multiple boxes for multiple filters. (A and C for instance) I realize I cannot do this using the method above. Is there any way I can? I feel like I am missing something. Please keep in mind I'm not very proficient in vba.</p>
  
  <p>Thanks!</p>