I must be speding far too much time in Excel. I am trying to loop through all Worksheets in an Excel Workbook, copy all charts on those Worksheet and paste them into a new Word Doc.
I have got all the code except the vital bit about pasting into Word
The code below is waht I have so far, most I pinched off a post by Jack in the Uk (thanks Jack)
Sub Excel_to_Word_JackintheUK() Set Word6 = CreateObject("Word.Basic") With Word6 If UCase(Left(Application.OperatingSystem, 3)) <> "MAC" Then .AppRestore .AppMaximize 1 Else AppActivate "Microsoft Word" End If .FileNewDefault .InsertPara For Each wWsht In ThisWorkbook.Worksheets For Each sShape In wWsht.Shapes sShape.Copy [b]'Bugs out here ARRHHHH!!![/b] Selection.PasteSpecial Next sShape Next wWsht End With End Sub