Fejl i Range-object

Hej Eksperten

Jeg har følgende kode, som fejler - hvad er det jeg gør galt? Så vidt jeg kan læse mig til i hjælp burde det kunne lade sig gøre.


Dim o As Integer
Dim j As Integer
Dim x As Range
Dim rngSum As Range
Dim lngSum As Long
Dim intAntalBev As Integer

  Workbooks("Post.xls").Activate
  rngSum = ThisWorkbook.Worksheets("Oversigt").Range(Cells(K, o), Cells(DT, o))
           
            For Each x In rngSum
                lngSum = 0
                For j = 1 To intAntalBev
                    lngSum = lngSum = x.Offset(j, 0)
                Next
                x.Value = lngSum
            Next

Dette er naturligvis kun en del af min kode - fejlen er: Application-defined or object-defined error

Håber på hurtig hjælp!!

Mvh Lisette