Replacing ascii character 13 with -

[mark_h82]

I have this code I found on here that would delete the ascii character 13:

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?

 

[BrianB]

I think that this is all you need :-

Sub test()
    Dim MyChar As String
    MyChar = Chr(13)
    ActiveSheet.Cells.Replace what:=MyChar, replacement:="-"
    MsgBox ("Done")
End Sub