Validere indhold i combobox i forhold til liste

Vil gerne se på det - du er velkommen til at fremsende..

Det er sket.

Private Sub CommandButton1_Click()
    If erTalValid(Me.ComboBox1) = True Then
        Range("F10000").Select
        Range("F65536").End(xlUp).Offset(1, 0).Select
        With ActiveCell
            .Value = ComboBox1.Text
        End With
    Else
        MsgBox "Tallet " & Me.ComboBox1 & " er ugyldigt"
    End If
   
On Error Resume Next
    ComboBox1.Value = ""
    ComboBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
    Unload Me
End Sub
Private Function erTalValid(tal As Integer)
Dim ræk As Integer, talListeTal
    ActiveWorkbook.Sheets(1).Activate
   
    For ræk = 2 To ActiveSheet.Range("A65000").End(xlUp).Row
        talListeTal = Range("A" & ræk)
        If tal = talListeTal Then
            erTalValid = True
            Exit Function
        End If
    Next ræk
   
    erTalValid = False
End Function

Virker - tusind tak for hjælpen.

Selv tak..