Error 13 en una macro sin saber a que se debe

Tengo la siguiente macro que me arroja error, no soy tan experto por lo que no se a que se debe:

Private Sub Workbook_SheetChange(ByVal hoja As Object, ByVal Target As Range)
'On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim i As Integer
Dim j As Integer
If hoja.Name <> "LOG" Then
If (Target.Columns.Count * Target.Rows.Count) < maxCeldas Then
If IsArray(valorAnterior) Then
For i = 1 To Target.Columns.Count
Call letraColumna(CInt(Target.Column + (i - 1)), letra)
For j = 1 To Target.Rows.Count
Call EscribeLOG("Cambia una celda", 8, ActiveSheet.Name, CStr(Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)), CStr(Target.Row + (j - 1)), letra, CStr(valorAnterior(j, i)), CStr(Target(j, i)))
Next j
Next i
Else
If Target.Value <> valorAnterior Then
Call letraColumna(Target.Column, letra)
Call EscribeLOG("Cambia una celda", 8, ActiveSheet.Name, CStr(Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)), CStr(Target.Row), letra, CStr(valorAnterior), CStr(Target.Value))
End If
End If
Else
Call EscribeLOG("Cambia un rango", 8, ActiveSheet.Name, CStr(Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)), "", "", "Multiples Valores (superada maxCeldas)", "Multiples Valores (superada maxCeldas)")
End If
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Es parte de una macro que guarda los cambios que se realizan en un excel y no pasa de la linea "If Target.Value <> valorAnterior Then"

¿Me pueden ayudar? Es un poco urgente.