Botón cancelar en un mesbox

Hola que tal... Pues agradezco el tiempo para tu respuesta a esta pregunta:
Pues tengo un pequeño código que ejecuta una macro en todos los libros que tengo abiertos, pero hay veces que no la quiero ejecutar en ciertos libros, el problema es que no he logrado poner el botón cancelar y que me salte al siguiente libro, esta es mi macro:
Sub Formulas()
    Dim Libro As Workbook, LibroActual As String, nueva As String
 ' Abre el libro y ejecuta la macro en el libro actual abierto
    LibroActual = ActiveWorkbook.Name
    For Each Libro In Workbooks
        Libro.Activate
        nueva = MsgBox("Ejecuta Marco en el " & Libro.Name, vbExclamation, "A POR ELLOS!!!")
' Aquí va todo el codigo que ejecuta la macro
 'pasa al siguiente libro abierto
     Next Libro
    Workbooks(LibroActual).Activate
    MsgBox "Ya termine con todos los libros abiertos... Me voy a cerrar " & ActiveWorkbook.Name
End Sub
Espero me puedas ayudar!

1 respuesta

Respuesta
¿Por lo que entiendo dices que no has logrado poner el botón cancelar? O quieres decir que al darle a cancelar te lo hace igualmente no ¿?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas