All other cells in a merged set of cells should be empty. Only the first
cell actually has data. Skip around setting the new value of the cell,
if it is empty.

If Not IsEmpty(cl) Then cl.Value = cl.Value & " : " & cmt.Text
--
Regards,
Bill Renaud