excell to word???

[priska]

Ya me salió!!!!!!!!!!!!!!!!!

Yuju!!!!!!!!!!

Lo logré con el siguiente código

Sub wordappli()
Dim apliword As Object
Set apliword = CreateObject("word.application")

Dim wordApp As Object
Dim wordDoc As Object
Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.documents.Add
'Aquí debes especificar el rango a copiar
Worksheets("julio").Range("cat").Select
Application.Selection.Copy
wordApp.Visible = True
wordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False

apliword.Quit
End Sub

Mil gracias!!!!!!!!