Format results in Message Box

[Guest]

I currently use,
MsgBox "Total Sales Value of All Jobs is: " &
Sheets("Sums").Range("b4").Value & vbNewLine & _
" " & vbNewLine & _
"Total Cost of Current Jobs is " & Sheets("sums").Range("c4").Value
& vbNewLine & _
" " & vbNewLine & _
"The Average Margin is " & Sheets("sums").Range("e4").Value, _
, "Summary of Active Jobs"

To provide a summary of the results in the nominated cells. The result is
unformatted. What do I need to add to format into $ and %.

Thanks for the help

 

[Guest]

If the cells you are showing are aleady properly formatted on the worksheeet,
then use:

Sheets("sums").Range("c4").Text

in place of

Sheets("sums").Range("c4").Value

 

[JMay]

with 1123 In Cell B4 (Formatted as General)
In the Immediate Window I entered:

Msgbox "The value in Cell B4 is " &
Format(Range("B4").Value,"$#,##0.00")

MsgBox Displays: The value in Cell B4 is $1,123.00

HTH

Jim May

 

[Guest]

Terrifically simple, and so I learn some new tricks, thanks a lot.