I have this code I found on here that would delete the ascii character 13:
Is it possible rather than it deleting this character, to replace it with a - (dash) instead?
Code:
Sub KillChar()
Dim Cll As Object
Dim X As Long
Dim TmpCll As String
Dim Evilcharacter As Byte 'Me
On Error Resume Next
Evilcharacter = InputBox("Enter the ASCII number of the character you wish to remove?", "Boxes must go.", 10)
If Err.Number <> 0 Then End
On Error GoTo 0
For Each Cll In Selection
If Len(Cll.Value) <> 0 Then
TmpCll = Empty
For X = 1 To Len(Cll.Value)
If Asc(Mid(Cll.Value, X, 1)) <> Evilcharacter Then TmpCll = TmpCll & Mid(Cll.Value, X, 1)
Next X
ActiveCell.Value = TmpCll
End If
Next Cll
MsgBox "Done."
End Sub
Is it possible rather than it deleting this character, to replace it with a - (dash) instead?