Sub removeChar() Dim Rng As Range Dim rc As String rc = InputBox("Character(s) to Replace", "Enter Value") For Each Rng In Selection Selection.Replace What:=rc, Replacement:="" Next End Sub
Macro code for Remove a Character from Selection
To remove a particular character from a selected cell you can use this code. It will show you an input box to enter the character you want to remove.