I have a feeling that you eill need to set this up as a userform rather than a messagebox
a quick test is
add a cell to A1 and Add a number format with a colour
i.e. "[Red]#,##0;[Blue]-#,##0"
and then if you try these 2 lines
Code:
MsgBox Format(Range("A1").Text, Range("A1").NumberFormat)
Range("A2").Formula = Format(Range("A1").Text, Range("A1").NumberFormat)
Notice how the msgbox remains black while the cell takes the colour of the range("A1")
i Moght be wrong but this is the impression i get
Dave