Hi.
I want to copy several ranges in a workbook to one Word document. How do I do that with a VBA?
In this example, I have defined the ranges with names. In "sheet3", I want range F3:F20 to be cells that users can type in which name ranges they want to export to Word.
This code does work if the named range is in the same sheet as the button. But I need it to work when the named ranges are in another sheets.
I also need this code to copy next named range valued in the F3 cell, and down to end of list.
I appreciate your help
Code
Private Sub CommandButton3_Click()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Add
Application.Range(Range("F3").Value).Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
WordApp.Visible = True
Set objSelection = WordApp.Selection
objSelection.Paste
End Sub
Display More