Kan er niet achter kommen waarom het fout gaat

[Atwist]

Hallo,

Ik krijg een foutmelding als ik mijn userform invul en dan de gegevens wegschrijf naar mijn "archief".
De foutmelding is 1004 "Door de toepassing of door object gedefinieerde fout", het gaat fout op de code.

Private Sub ListBox3_Click()
Sheets("archief").Select
[COLOR="red"]Set l = Range("O1:P10").Find(ListBox3.Value, , xlValues, xlWhole)[/COLOR]
Label17.Caption = l.Offset(0, 0)
Label18.Caption = l.Offset(0, 1)
If ListBox3.ListIndex >= 0 Then ListBox13.Enabled = True
End Sub

Zelf denk ik dat het te maken heeft met onderstaande code.

Sheets("archief").Select
  Range("O1:P300").Select
  Range("$O$1:$P$300").RemoveDuplicates Columns:=Array(1, 2), Header _
          :=xlNo
          
   Range("O1:P300").Select
    ActiveWorkbook.Worksheets("Archief").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Archief").Sort.SortFields.Add Key:=Range("O1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Archief").Sort
        .SetRange Range("O1:P300")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Ik heb namelijk meer van de eerste code in mijn userform staan en die gaan wel goed, maar daar zit geen "sort" functie en/of "RemoveDuplicates" functie op de range.

Heeft iemand een tip voor dit probleem.

 

[Atwist]

Probleem is opgelost.

Heb onderstande code onder een andere knop gezet en geen problemen meer.

Sheets("archief").Select
  Range("O1:P300").Select
  Range("$O$1:$P$300").RemoveDuplicates Columns:=Array(1, 2), Header _
          :=xlNo