RemoveChars

Removes all chars found in Chars_to_remove from String1


Public

Tested

My Own Work
Function RemoveChars(String1, Chars_to_remove)
' Removes all chars found in Chars_to_remove from String1
NewStr = String1
For I = 1 To Len(Chars_to_remove)
NewStr = Replace(NewStr, Mid(Chars_to_remove, I, 1), "")
Next
RemoveChars = NewStr
End Function

String1, Chars_to_remove

Views 4189 Downloads 1273

VBA Texts + Strings
ANmarAmdeen
813
Revisions

v1.0