MsgBox needs to show £ sign

[ipbr21054]

Hi,

I would like to be able to see the £ sign for when the code below is run.

Please advise thanks.

Private Sub CommandButton1_Click()MsgBox "Entered value is " & Worksheets("DATABASE").Range("A1").Value
End Sub

 

[JazzSP8]

Try;

Private Sub CommandButton1_Click()
MsgBox "Entered value is " & Format(Worksheets("DATABASE").Range("A1").Value,"£0.00")
End Sub

 

[ipbr21054]

Thanks very much.

All sorted

 

[wideboydixon]

You can also use .Text property if you want to show the value as it appears in the sheet:

MsgBox "Entered value is " & Worksheets("DATABASE").Range("A1").Text

WBD

 

[JazzSP8]

You can also use .Text property if you want to show the value as it appears in the sheet:

Nice, didn't know that - Stuck in my ways and never thought to look for another method.