>>305
Mrange.Value = Split(Mrange.Value, "")(0) & ""