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
--
Jim