Thread: Merging cell.
View Single Post
  #1   Report Post  
Posted to microsoft.public.word.tables
[email protected] dheeranrana@gmail.com is offline
external usenet poster
 
Posts: 2
Default Merging cell.

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