This is the Code I've used
Dim cform, curform As String
cform = ""
cform = amt.NumberFormat 'amt is the source cell
i = 1
curform = ""
While Mid(cform, i, 1) <> "]"
curform = curform & Mid(cform, i, 1)
i = i + 1
Wend
This is the Code I've used
Dim cform, curform As String
cform = ""
cform = amt.NumberFormat 'amt is the source cell
i = 1
curform = ""
While Mid(cform, i, 1) <> "]"
curform = curform & Mid(cform, i, 1)
i = i + 1
Wend
Hi, I have this requireemnt. I have to extract the currency Symbol, say USD or AED etc. from a cell and show it in another cell.
I tried assigning the result of ActiveCell.NumberFormat in to a String and then extracting only the first part of it till "]" using a While-Loop.
But it seems...
Hi, I have this requireemnt. I have to extract the currency Symbol, say USD or AED etc. from a cell and show it in another cell.
I tried assigning the result of ActiveCell.NumberFormat in to a String and then extracting only the first part of it till "]" using a While-Loop.
But it seems...