Control Excel (horizontal alignment)

[JiTS]

To control Excel in my database I use the following code:

objActiveWkb.Worksheets("Mutatiesoverzicht").Range("A2:C2").HorizontalAlignment = xlLeft

By running the code I get the following error:
"Unable to set the horizontal alignment property of the range class"

I think the problem is the property (xlLeft), but what exactly I don't know.


The entire code of the sub is:

Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim prm As DAO.Parameter
    
    Dim rstGetRecordSet As Recordset
    
    Dim objXL As Object
    Dim objCreateWkb As Object
    Dim objActiveWkb As Object
    
    Set dbs = CurrentDb
    Set qdf = dbs.QueryDefs("qryTeamleiderMutatiesExcel")
    For Each prm In qdf.Parameters
        prm.Value = Eval(prm.Name)
    Next prm
    
    Set objXL = CreateObject("Excel.Application")
    Set objCreateWkb = objXL.Workbooks.Add
    Set objActiveWkb = objXL.Application.ActiveWorkBook
    
    objXL.Visible = True
    objActiveWkb.Sheets.Add
    objActiveWkb.Worksheets(1).Name = "Mutatiesoverzicht"
    
    Set rstGetRecordSet = qdf.OpenRecordset()
    
    'Eerste rij van de worksheet vullen
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(1, 1).Value = "Ingelogt als"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(2, 1).Value = Medewerker
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(1, 2).Value = "Casenr"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(2, 2).Value = txtcasenr.Value
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(1, 3).Value = "Instroomdatum"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(2, 3).Value = txtDatumInstroom.Value
    
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(4, 1).Value = "Team"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(4, 2).Value = "Medewerker"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(4, 3).Value = "Type mutatie"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(4, 4).Value = "Status"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(4, 5).Value = "Afsluitdatum"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(4, 6).Value = "Uitzetafdeling"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(4, 7).Value = "Uitzetdatum"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(4, 8).Value = "DLT uitgezet"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(4, 9).Value = "SLA"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(4, 10).Value = "Dagen tot SLA"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(4, 11).Value = ""
    
    'Worksheet vullen
    objActiveWkb.Worksheets("Mutatiesoverzicht").Cells(5, 1).CopyFromRecordset rstGetRecordSet
    
    'Layout van de worksheet
    objActiveWkb.Worksheets("Mutatiesoverzicht").Range("A1:C1").Font.Bold = True
    objActiveWkb.Worksheets("Mutatiesoverzicht").Range("A4:J4").Font.Bold = True
    objActiveWkb.Worksheets("Mutatiesoverzicht").Range("A2:C2").HorizontalAlignment = xlLeft
    objActiveWkb.Worksheets("Mutatiesoverzicht").Columns(5).NumberFormat = "dd/mm/yyyy"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Columns(7).NumberFormat = "dd/mm/yyyy"
    objActiveWkb.Worksheets("Mutatiesoverzicht").Columns.AutoFit
    
    Set objActiveWkb = Nothing
    Set objCreateWkb = Nothing
    Set objXL = Nothing
    rstGetRecordSet.Close
    dbs.Close
    Set rstGetRecordSet = Nothing
    Set dbs = Nothing