Private Sub CommandButton1_Click()
Dim i As Integer
Dim linha As Long
linha = 2
For i = 1 To ThisWorkbook.Sheets.Count
For linha = 2 To Sheets(i).UsedRange.Rows.Count
If Sheets(i).Cells(linha, 1).Value = TextBox1.Text Then

Sheets(i).Cells(linha, 1).EntireRow.Delete
End If


Next linha

Next i
End Sub

Bom dia, pedrofish - Feliz Ano Novo

Amigo, o objetivo do Fórum é o compartilhamento das questões, dúvidas e principalmente das soluções para que
outros que tenham a mesma dúvida possa acompanhar o desenrolar, até a resolução da mesma

Então uma dica muito importante é tu partilhar os arquivos exemplos (Planilhas) aqui no seu Tópico e não em
paralelo fora dele (para não ficar fora do objetivo deste Fórum); o nosso amigo klarc28 fez o correto partilhando o
arquivo exemplo (com a sua solução) .

Abraço, Feliz Ano Novo para todos os colegas do Fórum .

LaerteB