Copy a range sheet and paste in Microsoft word as an image using vba

[tobalebari]

Please I need you guys help on this...I successfully copied and pasted a sheet as an image on word using the below VBA codes

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

Please I need the modified version of the above code so as to copy multiple sheets
and paste as images