VBA procedure virker kun hver anden gang...

Hej

Jeg har oprettet en MS Access (2007) database som vedhjælp af sql queries henter data fra en Oracle database. Derefter skal disse data exporteres til en Excel fil. Dette går også meget godt, men kun hver anden gang. Det virker meget mystisk at en kode kun skulle virke hver anden gang.

Her er et udsnit af koden som giver problemerne:
---------------------------------------------------
Query = "StandardUdtræk"
XLpath = "C:\temp.xlsx"
Set oXL = CreateObject("Excel.Application")
        With oXL
            .Visible = True
            .Workbooks.Open (XLpath)
            .activewindow.Zoom = 80
            .Worksheets(Query).Activate
            .Cells(2, 1) = Val(Cells(2, 1)) 'DET ER DEN HER DER IKKE VIRKER!!           
            .Selection.autofilter
            .Columns("A:S").EntireColumn.AutoFit
            .Columns("U:Y").EntireColumn.AutoFit
            .Columns("AB:AP").EntireColumn.AutoFit
            .Columns("T:T").ColumnWidth = 45
            .Columns("Z:AA").ColumnWidth = 30
            .Columns("T:T").WrapText = True
            .Columns("Z:AA").WrapText = True
            .Save                         
        End With
               
        Set oXL = Nothing

---------------------------------------------------
Det eneste koden gør, er at formatere det indhold som allerede er eskporteret over i excel filen.
Problemet er, at hver ANDEN gang får jeg en fejlmeddelelse på linien der indholder teksten ".Cells(2, 1) = Val(Cells(2, 1))". Jeg har lavet mange forsøg og hvis jeg fjerner den linie virker koden fint hver eneste gang. Meget mystisk.

Her er fejlkoden:

Run-time error '1004':
Method 'Cells' of object '_Global' failed

Da koden afspilles fra Access, har jeg selvfølgelig oprettet referance til Microsoft Excel 12.0 Object Library.

Nogen der kan hjælpe ?

Vh

Simon