Simplifier code avec : for i = to

Bonjour,
Quelqu'un pourrait avoir la gentillesse de me dire comment simplifier ce code avec : for i =__ to __
J'ai déjà réussi avec des combobox mais pas avec des TCD.

En cous remerciant!!


ActiveSheet.PivotTables("PivotTable1").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable2").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable3").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable4").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable5").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable7").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value
ActiveSheet.PivotTables("PivotTable8").PivotFields("ACTIVITY").CurrentPage = ComboBox2.Value