VBA For Loop для форматирования диаграмм

У меня есть начало некоторого кода VBA для форматирования серии в диаграмме. Как показано ниже

ActiveSheet.ChartObjects("Chart 31").Activate
ActiveChart.FullSeriesCollection(2).Select
With Selection.Format.Fill
    .Visible = msoTrue
    .Patterned msoPatternNarrowHorizontal
End With

Я хочу создать цикл for для циклического перебора всех серий с помощью четного тега, т.е.

FullSeriesCollection(x) Where x is an even number.

Пока не будет возвращена ошибка, потому что четных серий больше нет. Может ли кто-нибудь помочь мне указать в правильном направлении?