Hjælp til at forklare kode...

Hej,

Jeg har "stjålet" den her kode fra kabbak:

Public Sub test2()
Dim RW As Long, D As Variant, I As Long
RW = Range("O65536").End(xlUp).Row + 1
D = Range("O1:O" & RW)
For I = RW To 2 Step -1
If D(I - 1, 1) = "U" Then
Range("O" & I).EntireRow.Insert
  Range("O" & I).Select
  Exit For
  End If
  Next
  D = Empty
End Sub

Nu prøver jeg bare at finde en den værdi der er valgt i en combobox (cbid) i en formular (frmtrs) i stedet for som her "U". Og jeg prøver at finde den i range B21:B65536. Men jeg får "Subscript out of range ved linjen "If D(I-1, 1).... Kan nogen forklare hvorfor det går galt? Her er min egen kode:

Public Sub Findogret()

Dim RW As Long, I As Long, D As Variant, CBV As Long
  RW = Range("B65536").End(xlUp).Row + 1
    ' finder den række der er under den sidste udfyldte celle

D = Range("B21:B" & RW)
CBV = frmtrs!cbid.Value

  For I = RW To 20 Step -1
      ' læser baglæns, for st finde det sidste U
        If D(I - 1, 1) = CBV Then
           
            Range("B" & I).Select
            ' aktiverer cellen
             
            Exit For
            ' hopper ud af løkken
        End If
    Next

End Sub

Thanx