Macro to Copy a Range with Chart - Open Word Doc and Paste

[jwkolker]

I am trying to create a macro that will
[ol][li]Select Range[/li]
[li]Copy all cells and chart in the range[/li]
[li]Open an existing word document with rtf extension[/li]
[li]Paste the selection that was copied[/li]
[li]Close All Files xls and rft[/li][/ol]
So far I have 1 and 2 working with this code

=============================================

 ChDir "G:\_Development_Reporting\Working\MasterFiles"
    Workbooks.Open Filename:= _
        "G:\_Development_Reporting\Working\MasterFiles\giltreport-chart-final.csv"
    Range("A1:D37").Select
    Selection.Copy
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "G:\_Development_Reporting\Working\MasterFiles\weekly_charting_working.xls"
    Sheets("Feed").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("WeekvAverages").Select
    Application.Goto Reference:="printchart"
    Selection.Copy

===============================================

Any help would be greatly appreciated.

Regards,

John Kolker
John Kolker
Programmer
jwkolker@comcast.net