Statt drucken ausgabe in Word

Ich möchte gerne statt das Tabellenblatt drucken dieses in Word ausgeben. Bis anhin hab ich es gedruckt und dazu folgenden Code verwendet

Private Sub cmdDrucken_Click()
Dim arrWks()
Dim iCounter As Integer, iCount As Integer
For iCounter = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iCounter) Then
Worksheets(ListBox1.List(iCounter)).PrintOut
End If
Next iCounter

End Sub

Wie muss ich den nun abändern damit er die Tabelle nach Word exportiert?

Für eure Hilfe Danke ich bestens.
Gruss Roger