[Tasos]

Καλησπέρα!

Αγαπητέ Δημήτρη, ο κώδικας μου θα μπορούσες να χρησιμοποιήσεις χωρίς να εμφανίζεται καν το έγγραφο Word και χωρίς να χρειαστεί η αναφορά του Word Object είναι:

 
Sub CopyFromWord()
    Dim WD As Object, oDoc As Object, sFileName As Variant
    sFileName = Application.GetOpenFilename("Word Files (*.doc*)," & "*doc*")
    If sFileName <> False Then
        Set WD = CreateObject("Word.Application")
        Set oDoc = WD.Documents.Open(sFileName, , True)
        oDoc.Range.Copy
        Range("A1").Activate
        'ActiveSheet.Paste
        ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False
        WD.Quit False
        Set WD = Nothing
    End If
End Sub

Καλή συνέχεια!

Τάσος