Function cmRemChar(cell1 As Range, char1 As String)

    Dim instr1 As Integer
    Dim tmpStr As String
    
    tmpStr = cell1.Value
    instr1 = InStr(1, tmpStr, char1)
    
    Do While instr1 > 0
        tmpStr = Left(tmpStr, instr1 - 1) & Mid(tmpStr, instr1 + 1)
        instr1 = InStr(1, tmpStr, char1)
    Loop

    cmRemChar = tmpStr
    
End Function