I have a process that reads through a list of dates and tasks on one sheet to
create a calendar summary view on a separate sheet to show all tasks
applicable for each date. One cell is used for each calendar day, with each
applicable task for that day listed on a separate line, via CR/LF. I would
like to be able to use text formatting to differentiate tasks that are
completed (strikethrough font), open (regular font), or priority tasks (bold).

The process currently appends tasks by simply setting the cell to the
current value appended by a CR/LF and the new text to be added:

c.value = c.value & chr(10) & strNewText

Unfortunately I have not been able to create logic to assign text formatting
as desired. I have attempted to set the font using the Characters property
for the applicable characters, but each time the text is appended all
contents of the cell are reset to the format of the first character of the
cell. Does anyone have any suggestions on how to get around this?

Thanks,
Tim