Looping through Merged cells in VBA

Question

Is it possible to loop through merged cells in vba.

• I have 6 merged cells in the range B4:B40
• I need the values in these 6 cells 6 iterat

Answer 1

Here is a first stab to your issue:

Option Explicit

Sub loopOverCells()
    Dim rCell As Range
    Dim i As Integer

    Set rCell = [B1]
    For i = 1 To 6
        Debug.Print rCell.Address
        Set rCell = rCell.Offset(1, 0)    ' Jump 1 row down to the next cell
    Next i
End Sub