In some documents it generates this error:

The key is already highlighted with an element of this collection.

The debugger highlights this code:

oCol.Add oRng.Text & "/" & oRng.HighlightColorIndex, _
oRng.Text & "/" & oRng.HighlightColorIndex