Cells(1, 4).Address ohne Dollar-Zeichen

Sub Gleich_zum_testen()
'Mit...
Cells(1, 5) = "=" & Cells(1, 4).Address & "-" & Cells(1, 3).Address
'bekomme ich die Formel =$D$1-$C$1
'Mit...
Cells.Replace What:="$", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:= _
True
'bringe ich das "$" weg.
'Wie bekomme ich aber "=D1-C1" eleganter?
End Sub

Wer weiss Bescheid?
Bis später, darf ich doch hoffen.
Franz D.