Where you see
Replacewhat:=ReplaceString, WholeWords:=True) (several places)
Use
Replacewhat:=ReplaceString, WholeWords:=True, MatchCase:=msoTrue)
The replace will only happen if the case is exactly the same.
There'a a typo in Shyams code BTW
Col should be Cols (2 places)
|