Convert small cap characters to upper case?
r.Value = UCase(r.Value)