[VB6] Copiare due celle di Excel in un foglio Word

[Zat]

Ciao ragazzi, come da titolo devo copiare due celle di Excel in un file Word.
E, con il codice seguente, non funziona...

Sapreste dirmi come mai?

Private Sub Comando26_Click()

'Late binding che non dovrebbe dare problemi
Dim myApp As Word.Application
Set myApp = CreateObject("Word.Application")



Dim Example As Range

Dim exApp As Excel.Application
Dim exWb As Excel.Workbook
Dim exWs As Excel.Worksheet
   
    'apre excel
Set exApp = New Excel.Application
exApp.Visible = True
    
   'apre il file xls
strPerc = "I:\bper.xls"
Set exWb = exApp.Workbooks.Open(strPerc)

'seleziona il foglio 1
Set exWs = exWb.Worksheets(1)

   Set Example = Range("A1.A2")
   
   Example.Select
   Selection.Copy
   Set myDoc = myApp.Documents.Add(Template:="scheda1.dot")
   myDoc.FormFields("nome").Result = Example
myApp.Visible = True
myDoc.SaveAs ("I:\prove.doc")

End Sub

[gibra]

Devi fare il DEBUG del codice.