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