I am copying a percentage value from Excel (via VBA) to Word. Sometimes I want it to display with 2 digits of precision to the right of the decimal point:

E.g.: "Format(0.885, "Percent")" yields "88.50%"

But when the PERCENTAGE value is ANY whole number (e.g., "100%", "85%"), I don't want it to only display ONE zero to the right of the decimal point ("100.0%", "85.0%").

Is this best achieved by:

```
If (value <> 1) then
wdRng.Text = Format(vValue, "Percent")
Else
wdRng.Text = "100.0%" ' but what if it is not 100% What if it is 85%?
End If
```

That doesn't seem very elegant.

1) Is there a way to format it such that the "else" would be using the actual **value** of the variable **vValue **instead of hard-coding "100.0%"?

2) Is there an elegant solution that would only use a single line of code and would format vValue to 2 decimal points if the 2nd digit of precision (the hundredths spot) is not zero, but to 1 decimal place if it **is **a whole number? (I.e., 1st decimal place = 0, 2nd decimal place = 0, etc.)

Thanks.