i want vba code for finding the number of merged cells in a particular column

[madhavi]

i want to find the number of merged blocks in column 1 before I encounter a text(report) in that column 1 . can any one please help me

 

[xld]

[pre]
Public Sub ProcessData()
Const TEST_COLUMN As String = "A" '<<<< change to suit
Dim Lastrow As Long
Dim cnt As Long
Dim i As Long

Application.ScreenUpdating = False

With ActiveSheet

Lastrow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = 1 To Lastrow 'Lastrow to 1 Step -1

If .Cells(i, "A").MergeCells Then

cnt = cnt + 1
End If
Next i
End With

MsgBox cnt

Application.ScreenUpdating = True
End Sub
[/pre]