Formatting % in vbea messagebox

[already]

Hi

I have to put the results of a percent calculation (A3) in a message box in format '00.00 %'

I use the following code but I can't format the decimal places to only 2 digits

Worksheets("Sheet1").Range("A3") & Format(" %", "0.00")

Thanks in advance for your help.

Kind regards

Al

 

[Wookiee]

Try this:

MsgBox WorksheetFunction.Text(Worksheets("Sheet1").Range("A3"), "00.00%")

 

[Rick Rothstein]

Try this:

MsgBox WorksheetFunction.Text(Worksheets("Sheet1").Range("A3"), "00.00%")

No need to call out to the worksheet's TEXT function, you can do that using VB's built-in Format function...

MsgBox Format(Worksheets("Sheet1").Range("A3"), "0.00%")

 

[Wookiee]

No need to call out to the worksheet's TEXT function, you can do that using VB's built-in Format function...

Thanks, Rick. With so many function commands available, I just used the first function I could think of that worked in my test macro. I'll try to keep the VBA Format function in mind next time.

 

[Rick Rothstein]

Thanks, Rick. With so many function commands available, I just used the first function I could think of that worked in my test macro. I'll try to keep the VBA Format function in mind next time.

Just keep in mind that Format and TEXT are similar, but nowhere near identical... there are major differences between them, but in this simple case (of a percentage format) they produce the same result.

 

[already]

Thanks both for the help !!!
Best regards
Al