Leerzeichen am Ende einer Zelle mit VBA entfernen

Hallo,

Tablelle 1
Zelle D2

in dieser Zelle steht ein Text.
Am Ende des Textes stehen mehrere Leerzeichen.

Könnte mir bitte jemand einen Tipp geben, wie ich diese Leerzeichen in der Zelle per VBA entfernen kann?

Ich habe es, ohne Erfolg, versucht mit:
ActiveSheet.Range("D2").Value = RTrim(ActiveSheet.Range("D2"))

Danke im Voraus.
Gruß

With Sheets("Tabelle1").Range("D2")  
    .Value = RTrim(.Value)
End with

Set regex = CreateObject("vbscript.regexp")  
regex.Pattern = "[\s""]+$"  
With Sheets("Tabelle1").Range("D2")  
    .Value = regex.Replace(.Value, "")  
End With