format value in code

[howard]

I have the following code below which I need amended to format the value extracted from B1 for eg as $ 415,250.75 ("$#,##0.00")


the value is extracted using VBA but not formatted asrequired above

  strBody = strBody & "Those over 60 days amount to " & Sheets(4).Range("B1") & "  vbNewLine & vbNewLine

Your assistance is most appreciated

 

[James006]

Hello,

You can use : Format(Range("B1"), "$#,##0.00")

or

[COLOR=#333333]strBody = strBody & "Those over 60 days amount to " & Format(Sheets(4).Range("B1"),[/COLOR]"$#,##0.00"[COLOR=#333333])[/COLOR]

Hope this will help

 

[dmt32]

Hi,
If the value in your cell is formatted as required then use Range.Text property to display in your code, what you see in the cell rather than it's underlying value

strBody = strBody & "Those over 60 days amount to " & Sheets(4).Range("B1").Text & "  vbNewLine & vbNewLine"

Dave

 

[howard]

Thanks for the help guys. Code work perfectly