Boa noite!!!

Veja se te ajuda

Sub DeletarLinha_AleVBA()
Dim ws As Worksheet, LD As Integer
LD = InputBox("Digite o número de linha para deletar em todas as planilhas", "Deletar Linha")
    For Each ws In Worksheets
    ws.Activate
    Rows(LD).Delete
    Next ws
End Sub

Se for útil favor clicar na mãozinha e marcar seu tópico como resolvido!!
Veja em:
viewtopic.php?f=7&t=3784

Att

tenho um listview que quando selecionado leva os valores para textboxes
Ex

Coluna1 Coluna2 textbox1 textbox2
A B A B

Então, a linha que preciso excluir nas duas planilhas é a selecionada nesse listview

Bom dia!!

Poste seu arquivo modelo COMPACTADO!!!

Att

Opa, não repara na organização dos códigos

Uma Possibilidade,
no codigo de exclusão altere para

Sub Excluir()
Dim wsCadastro  As Worksheet, wsSaida As Worksheet
Set wsCadastro = ThisWorkbook.Sheets("Produtos")
Set wsSaida = ThisWorkbook.Sheets("saida")
Application.ScreenUpdating = False
wsCadastro.Activate
With wsCadastro
    .Range("a2").Select
    For cont = 1 To .Cells(Rows.Count, "a").End(xlUp).Row
            If ActiveCell = TextBox1.Text Then
                ActiveCell.EntireRow.Delete
            End If
        ActiveCell.Offset(1, 0).Activate
    Next
    .Range("a2").Select
End With
wsSaida.Activate
With wsSaida
    .Range("a2").Select
    For cont = 1 To .Cells(Rows.Count, "a").End(xlUp).Row
            If ActiveCell = TextBox1.Text Then
                ActiveCell.EntireRow.Delete
            End If
        ActiveCell.Offset(1, 0).Activate
    Next
    .Range("a2").Select
End With

MsgBox "Registro Excluído!"
Application.ScreenUpdating = True
End Sub

opa.. era bem isso que eu precisava
Obrigado!!