Retain excel cell format when copying to word bookmark

[Norie]

Using the Text property of a cell should give you the cell value as it's formatted.

How exactly did you try it?

Did you try it in the CopyCell sub?

Sub CopyCell(BookMarkName As String, ColumnOffset AsInteger)
'copy each cell to relevant Word bookmark
    wd.Selection.GoTo What:=wdGoToBookmark, Name:=BookMarkName
    wd.Selection.TypeText PersonCell.Offset(0, ColumnOffset).Text
EndSub