Como crear botón para evaluar

H ol a :

Te anexo la macro para evaluar:

Private Sub CommandButton5_Click()
'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 evaluar el cuestionario", vbQuestion + vbYesNo, "CUESTIONARIO")
        If res = vbNo Then Exit Sub
    End If
    '
    buenas = 0
    malas = 0
    For i = 1 To h2.Range("A" & Rows.Count).End(xlUp).Row
        preg = h2.Cells(i, "A")
        Set b = h1.Columns("A").Find(preg)
        If Not b Is Nothing Then
            correcta = True
            n = 2
            For j = b.Row + 2 To h1.Range("B" & Rows.Count).End(xlUp).Row
                If h1.Cells(j, "A") <> "" Then Exit For
                If h1.Cells(j, "C") <> h2.Cells(i, n) Then
                    correcta = False
                End If
                n = n + 1
            Next
            If correcta Then
                buenas = buenas + 1
            Else
                malas = malas + 1
            End If
        End If
    Next
    MsgBox "Se obtuvieron " & buenas & " respuestas correctas y " & malas & " malas", vbInformation, "CUESTIONARIO"
End Sub

S a l u d o s