Merging cell.

[dheeranrana]

hi,

i m having problem while merge cell to allready a merged cell.

Sub selectingmergedcell()

For i = 2 To Range("IV" & 6).End(xlToLeft).Column
If Not Cells(6, i).Value = "" Then

For j = 2 To Range("IV" & 7).End(xlToLeft).Column

If Cells(7, j).Value = "Oct'08" Then

For k = i To j

Cells(6, k).Merge

Next

End If

Next j

End If

Next i

End Sub



above code is not working.....help me its urgent.


thanks and regards,
Dheeran