Error 9 al ejecutar código

Hola:

Tengo el siguiente código que modifique de un mensaje posteado el 10-may-03
por UNITECH, sin embargo al ejecutarlo después de modificarlo me da "error
9" "el subíndice esta fuera del intervalo" en la línea
.Offset(1, Col) = ThisWorkbook.Worksheets(1).Range(Nombres(Col))

No tengo mucha idea de como corregirlo o de si tiene que ver con la
asignación de nombres en total 81 para igual número de columnas

Gracias por la ayuda

Mario Alberto


Sub Agregar_Legajos()
Dim Nombres As Variant
Dim Col As Integer

'Agrega en la siguiente matriz los nombres "entre comillas" _
'y separandolos con una coma(,)

Nombres = Array("NO", "MES", "AÑO", "NCIA", "CIA", "NTRAB", _
"TRAB", "FINFORME", "FAUDITORIA", "FSEG1", "FSEG2", "FSEG3", _
"DLEG", "ALEG", "GTE", "RESP", "AUD1", "AUD2", "AUD3", "AUD4", _
"AUD5", "AUD6", "AUD7", "AUD8", "AUD9", "DGTE", "DRESP", _
"DAUD1", "DAUD2", "DAUD3", "DAUD4", "DAUD5", "DAUD6", "DAUD7", _
"DAUD8", "DAUD9", "HGTE", "HRESP", "HAUD1", "HAUD2", "HAUD3", _
"HAUD4", "HAUD5", "HAUD6", "HAUD7", "HAUD8", "HAUD9", "IGTE", _
"IRESP", "IAUD1", "IAUD2", "IAUD3", "IAUD4", "IAUD5", "IAUD6", _
"IAUD7", "IAUD8", "IAUD9", "LGTE", "LRESP", "LAUD1", "LAUD2", _
"LAUD3", "LAUD4", "LAUD5", "LAUD6", "LAUD7", "LAUD8", "LAUD9", _
"LG1", "LG2", "LG3", "LG4", "LG5", "LG6", "DLG1", "DLG2", "DLG3", _
"DLG4", "DLG5", "DLG6")
Workbooks.Open FileName:= _
"C:\Mis Documentos\BDNACOBRE\Base de datos Portada Legajos.xls"
With Range("A65536").End(xlUp)
For Col = 0 To UBound(Nombres)
.Offset(1, Col) = ThisWorkbook.Worksheets(1).Range(Nombres(Col))
Next
End With
ActiveWorkbook.Save
End Sub