Código para salir del formulario

H o l a:

Te anexo el código para validar las preguntas que se han contestado antes de salir del formulario:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    cuenta = Application.Count(h2.Columns("A"))
    If cuenta < 5 Then
        res = MsgBox("Aún no se ha concluido el cuestionario" & vbCr & vbCr & _
                     "Desea abandonar el cuestionario", vbQuestion + vbYesNo, "CUESTIONARIO")
        If res = vbNo Then Cancel = True
    End If
End Sub

S a l u d o s .