I tried copying a sheet as an image to word and it worked using VBA. But I wanted to copy the entire workbook or sheets with a given range . Please someone help
Sub luxation ()
Dim objWord, objDoc As Object
Activewindow.view=xlNormalView
Range(“B2:S73”).select
Selection.copy picture Appearance:=xlscreen, Format:=xlPicture
Set objWord = createObject(“Word.Application”)
Set objDoc = objWord.Documents.Add
ObjWord.Visible = True
ObjWord.Selection.Paste
objWord.selection.type paragraph
End Sub
By: Toba Goodluck