Booooooooooaaaaaaaaaa tardeeeeeeeeeeee Braaaaaaaaaaasssssssiiiiiiiiiiiiilllllllll

Então, tô tentando incrementar um form de cadsatro de alunos. No botão excluir eu quero colocar uma mensagem perguntando se realmente desejo excluir o aluno, só que, mesmo que eu coloque NÃO, o aluno é excluído. O que preciso alterar no código que estou usando para quando clicar em não, o aluno não ser excluído?

Private Sub Excluir_Click()
If MsgBox("Tem certeza que deseja excluir o aluno?", vbYesNo + vbQuestion, "Excluir") = vbYes Then
End If
Dim sName As String
sName = txtName.Value
Set ShCadastro = Sheets("alunos")
  ShCadastro.Activate
  fimBase = Range("b60000").End(xlUp).Row
  For consulta = 2 To fimBase
      With ShCadastro
        sName = .Cells(consulta, 1).Value
        If txtName = sName Then
            Rows(consulta).EntireRow.Delete
        txtName.Value = ""
        End If
        Exit Sub
      End With
Next
Call travaCamposProc
    ChkAlt.Visible = False
    lbAlt.Visible = False
Unload frmAlunos
Load frmAlunos
        frmAlunos.Show
End Sub