Evaluate formula after dollar signs removed

[ChristineJ]

I want to make a slight change to the third line of a UDF I use. Is there a way to adapt it so that Txt equals the cell formula with all dollar signs removed?

Function ExtractNumber(Cell As Range) As String
Dim x As Long, Txt As String, Arr As Variant
Txt = Cell.Formula

Example: Txt that is =$A$1 + E$2 is instead A1 + E2

Thanks!

 

[Fluff]

How about

Txt = Replace(Cell.Formula, "$", "")

 

[ChristineJ]

That is it! Many thanks.

 

[Fluff]

You're welcome & thanks for the feedback.