AYUDA URGENTE CON PROBLEMA

Hola gracias por la atencion , tengo la siguiente macro:

Private Sub ACTUALIZAR()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "VKF76KL"
Sheets("MATRICULA").Visible = True
Sheets("MATRICULA").Select
ActiveSheet.Unprotect "DFR56HG"
Windows("ACTUALIZAR.xls").Activate
Sheets("MATRICULA").Visible = True
Sheets("MATRICULA").Select
Range("A2:Z5000").Select
Selection.Copy
ThisWorkbook.Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
ActiveWindow.ScrollRow = 5006
Application.CutCopyMode = False
ActiveSheet.Protect "DFR56HG", DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
Range("D5029").Select
Sheets("INDICE").Select
Windows("ACTUALIZAR.xls").Activate
Range("B2").Select
Sheets("ACTUALIZAR").Visible = True
Sheets("ACTUALIZAR").Select
Sheets("MATRICULA").Select
ActiveWindow.SelectedSheets.Visible = False
ThisWorkbook.Activate
Sheets("MATRICULA").Visible = False
ActiveWorkbook.Protect "VKF76KL"
Sheets("PERSONALIZAR").Select
MsgBox "ACTUALIZACION REALIZADA CON EXITO!"
End Sub


Mi problema es que ocupa que este abierto un libro que se llama "actualizar"
que si no esta disponible al aplicar la macro produce un error
y deja la macro a "medio palo" es decir ejecuta las instrucciones hasta el
punto donde no encuentra el archivo "actualizar" y me deja el libro
desprotegido y la hoja matircula visible.
mi pregunta es : cual instruccion puedo agregarle para que en caso de que no
estar disponible y abierto el libro"actualizar" la macro no se ejecute
o se devuelva dejando las cosas como estaban, lo que mas me precisa es que
el libro no quede desprotegido.

Muchisimas gracias.