Userform heeft gewerkt maar geeft nu fouten

[Atwist]

Hallo,

Ik gebruik mijn userform al een paar weken, en vandaag werkt het niet meer.
het schijnt in diverse code's te zitten.
Heb er even 1 uit gepikt:

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

Het gaat fout bij Set 1, krijg de melding "compileer fout syntaxifout".
Heb het een en ander na gekeken maar ik kan niets ontdekken.
Het zal wel zo zijn dat ik erover heen kijk.

Heeft iemand even tijd om eens te kijken.

 

[Atwist]

Het probleem is opgelost

Ik weet alleen niet waardoor maar alles werkt weer.