Makro - alle Zeichen entfernen

Beispiel: die Zeichen bzw. die Zeichenfolgen

<
>
/
NAMEK
VORNAMEK
.. usw.

sollen aus der ganzen Tabelle verschwinden. Wer kann mir behilflich sein, DANKE!

Hier das oben genannte Markro, das ich habe:

Sub xml()
Dim r As Range
For Each r In ActiveSheet.UsedRange.Cells
r.NumberFormat = "@" 'alle Zellen = Textformat
If Len(r.Text) > 1 Then
'wenn an Anfang ein "<", dann das erste Zeichen entfernen
If Left$(r.Text, 1) = "<" Then r.Value = Right$(r.Text, Len(r.Text) - 1)
End If
Next r
End Sub