The find/replace section would require "^77" instead of "Chr(77)"

Why are you placing these characters in there before replacing them in the find loop? Surely it would be better to place the[*] in the first place.
With Rng
.End = .Start + 2
.Text = "[*]" & vbTab
End With

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia