Combobox kode gennemløbes 2 gange - Hvorfor

I et Excell 2010 regneark har jeg en combobox som kalder en smule kode. Koden virker også efter hensigten, men jeg fatter ikke hvorfor jeg får MsgBox' op 2 gange når jeg ændre værdi i Comboboxen.
Koden ser ud son følger:

Private Sub ComboBox1_Change()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fname, ename, custkey As String
   
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\RealRaad\RR-OmegaDat.accdb;"
    con.Open
    Set rs.ActiveConnection = con
        'rs.Open "Select * from dbo_UserInformation WHERE ukey = '" & [J12] & "'"
        rs.Open "Select * from dbo_UserInformation WHERE ukey = '" & [ComboBox1] & "'"
    Do Until rs.EOF
        fname = Trim(rs.Fields(1).Value)
        ename = Trim(rs.Fields(2).Value)
        Cells(12, 7) = fname & " " & ename
        Cells(12, 10) = rs.Fields(0).Value
        rs.MoveNext
    Loop
   
    custkey = Range("J12")
   
    Set rs = Nothing
    con.Close
    Set con = Nothing
    MsgBox ("1 Og så skal vi videre til brugers omlægninger: " & custkey)
    'FindLaan.Show
   
End Sub