Daten in Excel bearbeiten.

Hallo

Ich möchte von Access aus Daten in Excel ändern. Dazu habe ich folgenden Testcode:

Sub subModifyExcel()
    Dim strExcelName As String
    Dim xlWorkbook As Object

    strExcelName = "H:\Work\Einführung Access\TestExcel.xlsx"
    Set xlWorkbook = objExcel.Workbooks.Open(FileName:=strExcelName)

    With xlWorkbook
    .Activate

        With .Sheets("Sheet1")
            .Range("A1048576").End(-4162).Activate    'xlUp
            xlWorkbook.ActiveCell.FormulaR1C1 = "aaa"
            .Range("XFD1").End(-4159).Select 'xlToLeft

        End With
        .Save
        .Close
    End With
End Sub

Ich kriege es in keiner Weise hin, die Linie mit ActiveCell auszuführen. Ich erhalte immer die Fehlernummer 438 (Object doesn't Support this property or method).

Wie kann ich das erreichen?

Danke und Gruss Thomas