Excel to Word using Bookmarks

[Kenneth Hobs]

Use Format to format your output. Not all NumberFormat strings evaluate properly in Format but many will.

[VBA]Sub MyNames()
Dim xlName As Name
For Each xlName In ActiveWorkbook.Names
If Range(xlName).Count = 1 Then
Debug.Print Range(xlName).Value, Format(Range(xlName).Value, Range(xlName).NumberFormat)
End If
Next xlName
End Sub[/VBA]