Excel - Problema en Workbook_open

Buenos dias a todos:
Es mi primer mensajes en este foro, asi que si estoy haciendo algo mal a la hora de mostrar mi pregunta, haganmelo saber.
Estoy trabajando dentro del evento Workbook_open, la macro intenta actualizar 2 bases de datos que estan dentro de el libro activo, el error surge a la hora de querer cerrar los dos libros abiertos donde tomo los datos para volcarlos a las bases del libro en cuestion.
Sucede el error "9" en tiempo de ejecucion - Subindice fuera de intervalo-
No entiendo aun por que se produce este error ya que las especificaciones de Windows(" ").select estan bien escritas.
desde ya muchas gracias por su pronta respuesta.
dejo el codigo que estoy utilizando.

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Sheets("Proveedores").Select
ActiveSheet.Unprotect Password:="Damian"
baseabre = "\\DC10004\Usuarios\Wmartinez\Mis documentos\Base TAF de Proveedores.xlsx"
Workbooks.Open Filename:=baseabre, UpdateLinks:=False
[C4:F4].Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("T-A-F de devoluciones.xlsm").Activate
Range("C4").Select
Selection.PasteSpecial (xlPasteValuesAndNumberFormats)
ActiveSheet.Protect Password:="Damian"
' Windows("Base TAF de Proveedores.xlsx").Activate
' ActiveWorkbook.Close False
Sheets("Base de Devoluciones").Select
ActiveSheet.Unprotect Password:="Damian"
baseabre2 = "\\DC10004\Usuarios\Wmartinez\Mis documentos\Base TAF de Devoluciones.xlsx"
Workbooks.Open Filename:=baseabre2, UpdateLinks:=False
[A1:J1].Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("T-A-F de devoluciones.xlsm").Activate
Range("C4").Select
Selection.PasteSpecial (xlPasteValuesAndNumberFormats)
ActiveSheet.Protect Password:="Damian"
Sheets("Inicio").Select
' Windows("Base TAF de Devoluciones.xlsx").Activate
' ActiveWorkbook.Close False
End Sub

Saludos.

si el error se produce al cierre de los libros, el código publicado no sirve de mucho...

Saludos, desde Baires, JuanC