Veja se ajuda meu amigo Sub lala2() Dim Alvo As Integer Dim Linha As Integer Alvo = Combobox1.Value 'Supondo que o dado procurado esteja na coluna A Range("A1").Select For Linha = 1 To 1000 If Cells(Linha, 1).Value = Alvo Then GoTo Step2 Else End If Next Linha Step2: Cells(Linha, Linha).Select Selection.Delete End Sub claro que o nome da sub seria CommandButton1_click ou algo assim Danke.