...= Replace(r.Value, vbKeyReturn, "")
r.Value = Replace(r.Value, ",", "")
r.Value = Replace(r.Value, "'", "")
r.Value = Replace(r.Value, "*", "")
r.Value = Replace(r.Value, ";", "")
r.Value = Replace(r.Value, ":", "")
r.Value = Replace(r.Value, "-", "")
r.Value =...