Re: Copy value and format xls to winword
Hi,
Just tried your suggestion and no luck:
Code
Function TCAdd(column As String)
TAdd ActiveSheet.Cells(row, ActiveSheet.Columns(column).column)
Selection.Copy
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
End Function
The actual figures are being copied across but none of the formats (£, %) etc.