A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Below is the function which you can use. You can download your file from Onedrive with code https://1drv.ms/x/s!AldvjX7HG_m7gS8ZbTFwNXdi-9l...
Function GetCurrency(Cell As Range) As String
GetCurrency = Replace(Cell.NumberFormat, "\", "")
GetCurrency = Mid(GetCurrency, 1, InStr(GetCurrency, "#") - 1)
End Function