Sub numFormat() dblNumber = 12345.678 Debug.Print dblNumber Debug.Print Format(dblNumber "#####0") End Sub