This macro can inspire you. Mylist is cell area.
Option Explicit
Public Cleared As Boolean

Private Sub ComboBox1_Change()
Dim i As Integer
If Not Cleared Then
With Sheets(1)
i = Application.Match(Me.ComboBox1.Value, Range("MyList"), 0)
Cleared = True
.Range("MyList")(i).EntireRow.Delete Shift:=xlUp

End With
End If
Cleared = False
Me.Hide
End Sub