いつもお世話になります。

現在VB6.0でexcelファイルを操作をしようとしていますが、
いきなりつまづきました。
質問内容は以下のようなコードで
セルのコピーを行って
それを別のセルに貼り付けようとしていますが、
うまくいきません。
最後のペーストの部分でエラーが発生します。
エラー内容（オブジェクトは、このプロパティまたはメソッドをサポートしていません。）

どなたか教えてください。

Dim AppXLS As Object

    Set AppXLS = CreateObject("excel.application.9")
    With AppXLS.Application
        .Workbooks.Add
        .Visible = True
        .Worksheets.Add
        
        With .Workbooks(1).Worksheets(1).Range("A1")
            .Value = "ABCDEFG"
            .Font.Size = 20
            .Font.ColorIndex = 3
            .Columns("A:A").AutoFit
        End With
    
    　　.Worksheets("Sheet1").Range("A1").Copy
    
    　　.Worksheets("Sheet1").Range("E5").Paste

    End With

> 最後のペーストの部分でエラーが発生します。

だったら、Excel の VBA のヘルプで Paste メソッド の　対象 のところを
調べて見て下さい。

こう行った事が起きないように、事前バインディング で接続するようにして下さい。
詳しくは、ここの Excel ＆ Word 関係 をご覧下さい。

VBAのヘルプを見てわかりました。
ありがとうございました。