Problema en Macro: Subindice fuera del intervalo

Señores.
Tengo una macro con la cual debo compar 3 archivos y en uno de ellos guardar
los cambios encontrados en los otros 2 archivos.
Parte de la macro la he copiado líneas abajo, en la línea identificada con
un signo + el programa se detiene y me arroja un mesaje que dice "Se ha
producido el error '9' en tiempo de ejecución / Subíndice fuera del
intervalo".
Por mas que le busco donde esta el error no lo encuentro. Espero puedan
ayudarme.

Sub ActInf()
Dim WkbLim, WkbChi, WkbMain As Workbook
Dim ShtLim, ShtChi, ShtMain As Worksheet
Dim RngMain, RngLim, RngChi As Range
Dim RngMainAct, RngLimAct, RngChiAct As Range
Dim RngNom, RngAux As Range
Dim PthMain As String
Dim IndNom, IndRes As String
Dim FilFin, FilIni, FilAux, Col As Long
Dim Ubi1, Ubi2, Mor, i, AuxMor As Long
Dim MatPen() As String
Dim MatAux(1, 1 To 3) As String
Dim LstPen() As String
Dim MaiTxt As String
Dim MaiTxtDO As DataObject

'Define la ruta donde se encuentran los archivos
PthMain = "c:\Prueba\"

'Asigna los 3 libros a sus variables correspondientes
Set WkbMain = ActiveWorkbook
Set WkbLim = Workbooks.Open(PthMain & "Lim.xls")
Set WkbChi = Workbooks.Open(PthMain & "Chi.xls")

'Fija las hojas que se van a comparar
WkbMain.Activate
Set ShtMain = WkbMain.Sheets("DataBase Mensual")
WkbLim.Activate
+ Set ShtLim = WkbLim.Sheets("DataBase Mensual")
WkbChi.Activate
Set ShtChi = WkbChi.Sheets("DataBase Mensual")


Gracias

Hola Diego,

Lo que probablemente quiere decir el error es que el libro WkbLim no contiene ninguna hoja que se llame "DataBase Mensual"
exactamente :-) Si crees que si, compriueba que no se te haya colado alguin espacio u otro simbolo dificil de ver en el nombre
original de la hoja.

Saludos,
KL


"Diego" wrote in message news:
> Señores.
> Tengo una macro con la cual debo compar 3 archivos y en uno de ellos guardar
> los cambios encontrados en los otros 2 archivos.
> Parte de la macro la he copiado líneas abajo, en la línea identificada con
> un signo + el programa se detiene y me arroja un mesaje que dice "Se ha
> producido el error '9' en tiempo de ejecución / Subíndice fuera del
> intervalo".
> Por mas que le busco donde esta el error no lo encuentro. Espero puedan
> ayudarme.
>
> Sub ActInf()
> Dim WkbLim, WkbChi, WkbMain As Workbook
> Dim ShtLim, ShtChi, ShtMain As Worksheet
> Dim RngMain, RngLim, RngChi As Range
> Dim RngMainAct, RngLimAct, RngChiAct As Range
> Dim RngNom, RngAux As Range
> Dim PthMain As String
> Dim IndNom, IndRes As String
> Dim FilFin, FilIni, FilAux, Col As Long
> Dim Ubi1, Ubi2, Mor, i, AuxMor As Long
> Dim MatPen() As String
> Dim MatAux(1, 1 To 3) As String
> Dim LstPen() As String
> Dim MaiTxt As String
> Dim MaiTxtDO As DataObject
>
> 'Define la ruta donde se encuentran los archivos
> PthMain = "c:\Prueba\"
>
> 'Asigna los 3 libros a sus variables correspondientes
> Set WkbMain = ActiveWorkbook
> Set WkbLim = Workbooks.Open(PthMain & "Lim.xls")
> Set WkbChi = Workbooks.Open(PthMain & "Chi.xls")
>
> 'Fija las hojas que se van a comparar
> WkbMain.Activate
> Set ShtMain = WkbMain.Sheets("DataBase Mensual")
> WkbLim.Activate
> + Set ShtLim = WkbLim.Sheets("DataBase Mensual")
> WkbChi.Activate
> Set ShtChi = WkbChi.Sheets("DataBase Mensual")
>
>
> Gracias