EXCLUINDO LINHAS

[DanielNV]

Estou criando um sistema em VBA para cadastro de aluno.

Estava pesquisando uma forma de quando excluir uma determinada linha da planilha

Encontrei o seguinte código que eu modifiquei apenas fixando a coluna:

Sub DeleteRowsWithWord()

Dim Col As Variant, Word As String

Let Col = "B"

If Len(Col) > 0 And Not Col Like "*[!0-9]*" Then Col = Val(Col)

Let Word = InputBox(" De qual aluno devo excluir os dados?")

With Columns(Col)

.Replace Word, "#N/A", xlWhole

On Error Resume Next

.SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete

End With

End Sub

a minha duvida é a seguinte;

Eu gostaria de quando o usuario clicar em ok para deletar a linha, aparece uma msgbox de confirmação, e se clicasse em cancelar aparecesse outra msgbox de cancelamento..e se possivel se ele não encontrar o nome pesquisando, ele informasse em outra msgbox.

praticamente so falta isso para o meu projeto.

se puder me ajudar nisso, seria de muita importancia para meu trabalho, agradeço desde já a atenção.

Att Daniel Marcos