Ao clicar no botão voltar? Que botão é esse?

Aliás, a coluna A contém o que? Fórmulas?

Se vc definiu um intervalo com fórmulas que começa na linha 2 e conta 1000 linhas, porque excluir depois? Seria melhor classificar o que não tem nada nas colunas B e C, sem ter que excluir.

Minha opinião. Porém, se vc quiser mesmo a apagar,

Sub Apagar_B_C_GT()
Application.ScreenUpdating = False
Dim i As Integer
ActiveSheet.Unprotect
For i = 2 To 1003
    If IsEmpty(Cells(i, "B")) And IsEmpty(Cells(i, "C")) Then Cells(i, "A").EntireRow.Delete
Next i
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub

Amigo,
Funcionou.
Mas parece que o processo ocorre em todas as planilhas, algumas com fórmulas.
Por que?

Preciso apenas nas Planilhas Locatario e Patrimonio.

pedro, a rotina só age na aba que está sendo executada conforme a instrução : ActiveSheet - Aba (planilha)ativa, se ocorreu em outras é porque você executou a rotina nestas abas.

Preciso apenas nas Planilhas Locatario e Patrimonio.
Para evitar de ter rotinas iguais onde só irá alterar o nome das abas, e´só adicionar um Botão nas abas que pretende e associar os mesmos a macro enviada pelo gtsalikis, assim ela irá ter effeito somente na aba em que o botão estiver.

[]s

Mauro,
Não sei explicar, mas estava afetando a planilha Menu, em célula com função Indice e corresp.

Por causa do tamanho, não dá pra colocar no post.
Posso enviar para [email protected] pra você dar uma olhada?

Pedro, vc não explicou onde estava aquele botão, mas, faça dessa forma:

Sub Apagar_B_C_GT()
Application.ScreenUpdating = False
Dim i As Integer
Dim ws As Worksheet
Set ws = ActiveSheet
Sheets("Locatario").Select
ActiveSheet.Unprotect
For i = 2 To 1003
    If IsEmpty(Cells(i, "B")) And IsEmpty(Cells(i, "C")) Then Cells(i, "A").EntireRow.Delete
Next i
ActiveSheet.Protect
Sheets("Patrimonio").Select
ActiveSheet.Unprotect
For i = 2 To 1003
    If IsEmpty(Cells(i, "B")) And IsEmpty(Cells(i, "C")) Then Cells(i, "A").EntireRow.Delete
Next i
ActiveSheet.Protect
ws.Select
Application.ScreenUpdating = True
End Sub

Gilmar,
O Botão Incluir está nas 2 planilhas, Patrimonio e Locatario, e uso para Incluir automaticamente a coluna A (Código), em sequencia numérica.
Veja em: http://www.4shared.com/office/P4n9ODiuc ... NVIAR.html?

Clique em Locatarios, depois Incluir (vai gerar novo codigo, mas ao sair (clicar em voltar) é para apagar a ultima linha de B estiver vazio).

Grato,
Pedro

Perdão,
A planilha do link anterior estava protegida.

Segue a nova:
www.4shared.com/office/qT1hsXQoba/Contrato.html?

O que quero?
Nas Planilhas Locatarios e Patrimonio. Ao clicar em Incluir, gera novo Código na Coluna A. Se o usuário Não preencher o
Nome (Coluna B), quero Deletar a Linha toda, que pode ocorrer ao sair da Planilha através do Botão Volta.

Grato,
Pedro

Pedro, não tenho como ver seu modelo, aqui no serviço não conseguimos baixar alguns anexos nem receber emails.

No inicio você disse que a rotina do colega gtsalikis funcionou, mas fiquei em duvida qdo diz:
Não sei explicar, mas estava afetando a planilha Menu, em célula com função Indice e corresp.

Se em alguma aba tem formulas referenciando diretamente ranges da aba em que está deletando linhas, irá ter erros mesmo, a não ser que esteja utilizando formulas com ranges dinamicos.
Se não conseguir, procure diminuir o tamanho do arquivo deixando somente as partes que interessam ou diminuindo a qde de registros e anexe aqui no forum.

[]s

Mandei para seu e-mail, mas retornou.

Mandei para seu e-mail, mas retornou.

Como eu citei acima, aqui no serviço não temos acesso a WebMail, a noite dou uma olhada.

[]s

Acredito que resolvi o problema.

Em vez de (.Delete) eu coloquei (.ClearContents).

Grato a todos.
pedro