Corrección de macro por error

H o l a:

La estructura completa del Case es así:

Sub BorrarDatos()
    resultado = MsgBox("Desea realizar otro registro con estos mismos datos?", vbYesNo)
    Select Case resultado
        Case vbYes
            Exit Sub
        Case vbNo
            Range("C7:C14").ClearContents
    End Select
End Sub

s a l u d o s