The Format function returns a string. When this is assigned to numData
(declared as double), VBA converts the string back to an actual number
(negating your intended purpose of using Format).

Perhaps you can format the number when you are putting it into word and not
when you are assigning it to your variable.

Format(numData, "0.0")

Or, perhaps declare numData as a string.


"Ed" wrote:

I am putting a value from an Excel cell into a Double variable, then
transferring that into a Word table. The Excel cells are formatted to
always show the value with one decimal place. But when I put the
value into the variable, if the actual number in the cell didn't have
a decimal, I don't show a decimal place when the number goes into
Word.

I'm trying to use
numData = Round(rng.Value, 1)
numData = Format(numData, "000000.0")
but the Format doesn't seem to do the job. How can I do this?

Ed