Excluir linha de duas abas ao mesmo tempo

[Paulo Pimentel_409947]

Pessoal, boa tarde,

Tenho uma planilha que através de um formulário em vba cadastro informações que são enviadas para a aba "Clientes" e para a aba "Ping", porém não tô conseguindo fazer a exclusão da informação que desejo nas 2 abas ao mesmo tempo, consigo apenas da aba "Clientes", preciso que exclua da "Clientes" e da aba "Ping".

 

 

Código: 

Private Sub cmdExcluir_Click()    Dim lLinha As Long    Dim currentFind As Range    Dim lPosicao As String        iTotalLinhas = Sheets("Clientes").Cells(Rows.Count, 1).End(xlUp).Row    If IsNumeric(lblCod.Caption) = True Then        Set currentFind = Worksheets("Clientes").Range("A:A").Find(lblCod.Caption, , _            Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _            Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)        lLinha = currentFind.Row                currentFind.EntireRow.Delete                    If lLinha <= iTotalLinhas And IsNumeric(Worksheets("Clientes").Cells(lLinha - 1, 1)) Then            lsLocalizaRegistroStudent (CLng(Worksheets("Clientes").Cells(lLinha - 1, 1)))        End If                If lLinha = 2 And iTotalLinhas > 2 Then            lsLocalizaRegistroStudent (CLng(Worksheets("Clientes").Cells(lLinha + 1, 1)))        Else            lsLimparStudents        End If                Sheets("Menu").Activate    End If    End Sub

[CasaDoHardware]

E so você fazer uma copia da macro para que exclua a aba ping e faz uma outra macro para chamar as duas e pronto.