диапазон l oop выходить раньше при назначении массива имен заголовков?

Question

У меня есть ТОННА заголовков, которые мне нужно назначить на лист, но я делаю это только с несколькими избранными для тестирования. То, что я пытаюсь сделать, это назначить 4 ячейки в диапазоне, а также назначить 4 текстовых значения для каждой параллельной ячейки в этом предварительно определенном диапазоне.

Dim rng As Range: Set rng = Range("E3,O3,AF3:AG3")
Dim header() As Variant: header() = Array("Department Name", "Hire Date (Most Recent)", "Region", "District")

For Each cell In rng
    Cell.Value = header(i)
Next cell

хорошо работает для первого Department Name, но затем выходит из l oop в следующем go -округе и переходит к остальной части кода, любой Понятно, как я могу изменить его для циклического прохождения и соответствующей маркировки?

Остальной код (частичный):

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    Select Case ws.Name
        Case "Corporate", "OtherCorporate", "DC", "Stores", "Hires"
            With ws
                Dim i As Long, cell As Range, rng As Range
                Dim header() As Variant: header() = Array("Department Name", "Hire Date (Most Recent)", "Region", "District")
                .Range("L:M, R:T, AC:AG, AJ:AK, AR:BF").EntireColumn.Delete Shift:=xlToLeft
                .Range("I:I, M:N, AN:AO").EntireColumn.Hidden = True
                    Set rng = Range("E3,O3,AF3:AG3")
                    For Each cell In rng
                        i = 1
                        cell.Value = header(i)
                        i = i + 1
                    Next cell
            End With