AYUDA CON MACRO

Hola, muchas gracias de antemano a quien pueda ayudarme.
tengo la siguiente macro en un libro llamado "REGISTRO DIGITAL", que me
sirve para actualizar una hoja del mismo llamada "MATRICULA" lo hace
copiando la hoja "RECIENTE" de otro libro llamado "ACTUALIZAR"

Sub ACTUALIZACION()
Sheets("MATRICULA").Select
ActiveSheet.Unprotect
Windows("ACTUALIZAR.xls").Activate
Sheets("RECIENTE").Select
Range("A2:Z5000").Select
Selection.Copy
Windows("REGISTRO DIGITAL.xls").Activate
Sheets("MATRICULA").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("INDICE").Select
End Sub



Funciona perfectamente siempre y cuando el libro que estoy actualizando se
llame "REGISTRO DIGITAL" pero si a este libro le he cambiado el nombre y le
he llamado por ejemplo "REGISTRO DIGITAL I PERIODO" la macro al ejecutarse
presenta el sigueinte error " se ha producido un error 9 en tiempo de
ejecucion, subindice fuera de itervalo.
Que instruccion puedo poner en vez de -Windows("REGISTRO
DIGITAL.xls").Activate - para que reconozca que debe copiar en el mismo
libro aunque no se llame REGISTRO DIGITAL ?

No saben cuanto agradezco si alguien puede ayudarme.
Gracias de antemano