I'm sorry, I didn't understand what you meant.

I tried this but this doesn't work :
 c.Value = .Replace("@", "", xlPart)