Excel - ON ERROR RESUME NEXT

hola a todos tengo una duda respecto del funcionamiento de on error resume next

grabe una macro en el libro 1 que simplemente cierra el libro 2 y nada mas. hasta aqui, nada nuevo.

lo que ocurria es que cuando el libro 2 esta cerrado y alguien presiona el boton "cerrar libro 2" se genera el tipico error 9 en tiempo de ejecucion. para evitar esto utilice el codigo on error, para que cuando se presione el boton, no pase nada si el libro 2 ya esta cerrado.

hasta aqui creia que estaba todo bien, pero escribi un mensaje que dice: "Libro 2 ya se ha cerrado" (en caso de que se presione el boton estando cerrado).

PROBLEMA: EL MENSAJE NO APARECE.

este es el cogido que escribi. me ayudan a corregirlo por favor???

Private Sub CommandButton1_Click()

Dim mensaje As String
mensaje = "Libro 2 ya se ha cerrado"

On Error Resume Next

Windows("Libro 2.xls").Activate
If Windows("Libro 2.xls").Close Then
MgsBox = mensaje
Else
Windows("Libro 2.xls").Close
ActiveWindow.Close
Range("E1").Select
End If

End Sub

gracias

no muestra el mensaje porque la línea
If Windows("Libro 2.xls").Close Then
no es válida, es decir, no estás preguntando si está cerrado sino que lo
estás cerrando.
además 'MgsBox = mensaje' no es correcto
deber ser 'MsgBox mensaje'

podrías cambiar On Error Resume Next por On Error Goto errHandler
y mostrar el mensaje dentro del código que maneja el error...

ej:

Sub my_proc()
On Error Goto errHandler

... código

Exit Sub

errHandler:
MsgBox mensaje
Err.Clear
Resume Next (o lo que sea)

End Sub

Saludos, desde Baires, JuanC

como siempre JuanC tienes razon, gracias por tu siempre oportuna respuesta
saludos desde Stgo