I found it's tricky to colorize a sub-expression of an expression that changes to a different expression when it is evaluated.
For example, if I replace s with
$$, I get
HarmonicNumber[n,s] with s colored red.
The solution I found is to evaluate
Style[s,Red] in another line and use copy-paste to replace the s in the original expression.
Is there any better way?