On May 18, 5:13*am, jkrons wrote:
Hi

I have number of characters in a string, that I like to replace with
"nothing". I use a code like this:

Sub test()
* * Dim a As String
* * a = "Jan+& Per"
* * a = Replace(a, " ", "")
* * a = Replace(a, "&", "")
* * a = Replace(a, "+", "")
* * MsgBox a
End Sub

As I have about 15 characters, that all should be replaced with
nothing, I am looking ofr another way to it. Something like

Sub test()
* * Dim a As String
* * a = "Jan+& Per"
* * a = Replace(a, {" ", "&", "+"}, "")
* * MsgBox a
End Sub

Is this possible at all?

Jan

You can always use a loop:

Sub EasyAsABC()
a = "ABCDEFG"
chn = Array("A", "B", "C")
For i = 0 To UBound(chn)
a = Replace(a, chn(i), "")
Next
MsgBox a
End Sub