Sub Removechar()
Selection.Replace What:=Chr(34), Replacement:=vbNullString, Lookat:=xlPart
Selection.Replace What:=Chr(91), Replacement:=vbNullString, Lookat:=xlPart
Selection.Replace What:=Chr(93), Replacement:=vbNullString, Lookat:=xlPart
End Sub
Usando códigos de caracteres ASCII.