Hi Ed

one option is to do this:

MsgBox "Rate Card Amount Used = " & Format(Range("D13"), "$#,###.00"),
vbInformation

(note you're also missing a space & " after the =)

Cheers
JulieD


"Ed P" wrote in message
...
Below is an example of code I have entered. The return is returning
correctly
but the cell referenced is not returning with a $ or commas. I can
formatted
the cell correctly and I have tried multiple methods includeing Dim x as
curreny with X = Range("D13").Value

If someone can tell me what i am missing I would appreciate it greatly.
Thank you for your help

Private Sub CommandButton2_Click()
If CommandButton1.Value = "Rate Card Regular" Or CommandButton1.Value =
"Rate Card Complex" Or CommandButton1.Value = "Rate Card Regular Rush" Or
CommandButton1.Value = "Rate Card Complex Rush" Then
MsgBox "Rate Card Amount Used = & Range("D13").Value, vbInformation
End If