Sub DeleteOrReplaceCharacters() With Range("A2:A10") .Replace "a", "", xlPart .Replace "&", "", xlPart .Replace "{", "(", xlPart .Replace "d", "3", xlPart End With End Sub