RemoveChars
From scripting
Function RemoveChars(InputStr As String, ArrayOfChars As Variant) As String Dim tempStr As String tempStr = InputStr For X = 0 To UBound(ArrayOfChars) tempStr = Replace(tempStr, ArrayOfChars(X), "") Next X RemoveChars = tempStr End Function