Excel VBA Code to Replace all Currency Symbols in Worksheet

[acool]

Hi Everyone, I am currently trying to create a line of code that replaces all currency symbols (they are considered considered a text/symbol value on the spread) with nothing. I currently have this, which I believe will work, but I was hoping someone knew of something shorter that could cut down on the amount of code needed. Thank You!

 

[Joe4]

Well, you could store your values in an array and loop through them, i.e.

    arr = Array("a", "b", "c")
    For i = LBound(arr) To UBound(arr)
        Cells.Replace What:=arr(i), Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Next i

Just replace the values in the original array line with the values you want to replace.