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

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

"Seanie" wrote:

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

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



Seanie wrote:

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

--

Dave Peterson