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