Iterate through merged range

I'm trying to iterate through a range of merged cells, but each cell in the merged row is being iterated through and I want it to go from row to row.
This what I have, but the subscript goes out of range since is looking at the cells within the merged rows.

Public Sub PostSupers(ByRef rngSupers As Range, ByRef strarySupers() As String)
    
    Dim intSuper As Integer
    Dim Super As Range
    intSuper = 0
    For Each Super In rngSupers

        Super.Value = strarySupers(intSuper)
        intSuper = intSuper + 1

    Next Super

End Sub

Add this to the loooooong LIST of reasons to NOT use merged cells.

Excel provides the "Center across Selection" option so cells look merged but are not, so why use anything else?

Merging cells is a universally bad idea when there is any related downstream processing.

Maybe this will work (completely untested):

Public Sub PostSupers(ByRef rSup As Range, ByRef asSup() As String)
    Dim i           As Long
    Dim j           As Long

    If rSup.Areas.Count > 1 Then Stop    ' the code doesn't accommodate this
    i = 1
    j = LBound(asSup)

    Do
        rSup(i) = asSup(j)
        i = i + 1
        j = j + 1
        Do While rSup(i).MergeArea.Address = rSup(i - 1).MergeArea.Address And i < rSup.Count
            i = i + 1
        Loop
    Loop While i <= rSup.Count And j <= UBound(asSup)
End Sub

Glad to hear it. If that takes care of your need, be sure to EDIT your original post, click Go Advanced and mark the PREFIX box [SOLVED].


(Also, use the blue "scales" icon in our posts to leave Reputation Feedback, it is appreciated)