Is there a way to change the fill color of all cells in the active sheet
which have comments, based on a specific text string in those comments?

Crude example:

For Each Cell in ActiveSheet Where comment.text ="Test"
Cell.Interior.ColorIndex = xlNone

Thanx.
- Mike