Format Value Displayed in Msb Box

[Seanie]

How do I format the value returned in a Message box as €0,000 - if in
thousands or €000 - if value is only in hundreds. Relevant cell is AI2


With Worksheets("Order")
If .Range("AJ2").Value = 1 Then
Answer = MsgBox("You Order Totals " & Range("AI2").Value & _
"If this is correct click ""Yes"", if not " &
_
"Click ""No"" and amend as necessady",
vbYesNo)
If Answer = vbNo Then
Application.Goto Range("A22"), True
Range("G39").Activate
Exit Sub
Else
End If
End If
End With

 

[Mike H]

Seanie,

Try this

Sub nn()
With Worksheets("Order")
If .Range("AJ2").Value = 1 Then
Answer = MsgBox("You Order Totals " & Format(Range("AI2").Value, "
€#,###") & " If this is correct click ""Yes"", if not " & "Click ""No"" and
amend as necessady", vbYesNo)
If Answer = vbNo Then
Application.Goto Range("A22"), True
Range("G39").Activate
Exit Sub
Else
End If
End If
End With

End Sub


Mike

 

[Dave Peterson]

.... & format(range("ai2").value, "#,##0") & ...