また、ミスってました。たびたび済みません。
カンマが一つ足りませんでした。
下記に修正してください。
s = Replace(s, i, "<font style='background-color:" & 色 & ";'>" & i & "</font>", , ,vbBinaryCompare)
通報 ...