Estou considerando que não será possível cadastrar itens repetidos na planilha e que os dados se encontram na coluna A:
Private Sub CommandButton1_Click()
'Botão de excluir
Dim MatchRow As Variant
Dim ws As Worksheet
If ComboBox1.Text = "" Then
MsgBox "Selecione um item para excluir!", vbExclamation
ComboBox1.SetFocus
Exit Sub
End If
Set ws = ThisWorkbook.Worksheets("Base de Dados")
MatchRow = Application.Match(MatchRow, ws.Columns("A"), 0)
If IsError(MatchRow) Then
MsgBox "Registro não encontrado na planilha!", vbExclamation
ComboBox1.SetFocus
Exit Sub
End If
ws.Rows(MatchRow).Delete
ComboBox1.RemoveItem ComboBox1.ListIndex
MsgBox "Registro excluído com sucesso.", vbInformation
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br