poste a planilha para que os colaboradores possam analisar o código

Posso te ajudar mas terá que colocar seu modelo para eu ver seu projeto...

Minha rotina do botão excluir !!

Private Sub Bexcluircclientes_Click()

Dim indice
indice = ListBox_Cclientes.ListIndex + 2 'Verifica qual a linha esta seleciona no listbox e incremeta mais +2
If MsgBox("Deseja excluir este item ?", vbExclamation + vbYesNo) = vbYes Then
Rows(indice).Delete 'Deleta a linha na planilha de acordo com o indice selecionado

MsgBox "Item deletado com sucesso", vbInformation
End If

End Sub

Podia ao menos montar uma planilha básica para termos ideia ...
Vê se isto lhe atende!

Private Sub Bexcluircclientes_Click()

Dim indice
indice = ListBox_Cclientes.ListIndex + 2 'Verifica qual a linha esta seleciona no listbox e incremeta mais +2
If Rows(indice) <> Rows(1) Then ' Sendo que Rows(1) é a linha do seu cabeçalho
If MsgBox("Deseja excluir este item ?", vbExclamation + vbYesNo) = vbYes Then
Rows(indice).Delete 'Deleta a linha na planilha de acordo com o indice selecionado

MsgBox "Item deletado com sucesso", vbInformation
End If
End If
End Sub

Eu excluo os clientes através de uma listbox exclui perfeito. Só que quando não tem mais clientes para excluir se eu clicar no botão excluir ele exclui o cabeçalho da planilha que fica na primeira linha como faço para bloquear a exclusão do cabeçalho. segue meus códigos. Agradeço a ajuda !!!

Private Sub Bexcluircclientes_Click()

Dim indice
indice = ListBox_Cclientes.ListIndex + 2 'Verifica qual a linha esta seleciona no listbox e incremeta mais +2
If MsgBox("Deseja excluir este item ?", vbExclamation + vbYesNo) = vbYes Then
Rows(indice).Clear 'Deleta a linha na planilha de acordo com o indice selecionado

MsgBox "Item deletado com sucesso", vbInformation
End If

End Sub

Ja é o terceiro topico que vc abre sobre o mesmo assunto no seu anterior eu indiquei o primeiro.

Inclusive la tem uma resposta.

Desculpa MPrudencio falha minha, a postagem que tem lá não deu certo não !!!

Se não deu certo, diz lá o que não deu certo e não cria outro, até porque se você não disser o deu errado a sua resposta vai ser a mesma. Diz lá o que deu errado. Assim você teta a ajuda esperada.

Moderação apagem esse topico que esta duplicado.

tentei desse jeito que você me passou mais não consegui !!!

favor colocar o arquivo!

Silver

Uni teus 2 tópicos.

Não é permitido criar mais de uma tópico para a mesma dúvida, sendo que inclusive eu já havia apagado outro tópico duplicado que vc criou.

Leia as regras do fórum.

Patropi - Moderador.

Entendi sou novo no forum desculpa !!!

Coloca um condição no clicar do botão excluir. Caso a linha a excluir seja a primeira, então sai da Sub.

Olha como é que ta Alchuffi !!!

Private Sub Bexcluircclientes_Click()

Dim indice
indice = ListBox_Cclientes.ListIndex + 2 'Verifica qual a linha esta seleciona no listbox e incremeta mais +2
If MsgBox("Deseja excluir este item ?", vbExclamation + vbYesNo) = vbYes Then
Rows(indice).Delete 'Deleta a linha na planilha de acordo com o indice selecionado

MsgBox "Item deletado com sucesso", vbInformation
End If

End Sub

Eu excluo normalmente escolhendo o cliente numa listbox e e clicando no botão excluir. Até ai beleza, só que quando não tem mais dados na listbox, se eu clicar no botão excluir ele exclui meu indice onde fica os titulos da tabela como código, nome, endereço... Como eu colocarai nesse meu código como você falou ? Agradeço a ajuda !!!