Hello,

I have been trying to get this write for the last two hours and I finally give up. I have a macro button that I would like to copy a range on my spreadsheet on a different sheet, open up a word document, and paste the range keeping the original formatting. I have been able to do everything except keep the original formatting (which works fine if I cut and past manually). Here is what I have so far:

Sub COPY()
Dim objWord As New Word.Application
Sheets("Output").Select
Range("C9:C50").COPY
With objWord
.Documents.Add
.Selection.PasteSpecial xlPasteAllUsingSourceTheme
.Visible = True
End With
End Sub

The result is perfect except it uses Word's 1.5 spacing after paragraphs which I HATE. I use different computers throughout the day so I cannot simply just change the default setting for Word formatting, which I assume you can do).

I know this is a simple problem but I am still learning.

Thanks for the help!