VBA Array Subscript Out of Range

[kpark91]

Hello, below is the code I am using and I keep getting "Subscript out of range" error at the highlighted line.
I have no idea why I am getting it.

Any advices or tips would help alot,
Thank you very much!

PS: LR is always bigger than 2 and the code has been pasted into Worksheet module.

Option Base 0
Sub a()
    Dim LR As Long, i As Long, skipArr() As Long, j As Long, count As Long
    Dim check As Boolean
    count = 0
    LR = Range("A" & Rows.count).End(xlUp).Row
    ReDim skipArray(0 To LR - 2) As Long
    For i = 2 To LR
        check = True
        For j = 1 To count
            If skipArray(j) = i Then
                check = False
            End If
        Next j
        
        If check Then
            For j = i + 1 To LR
                If Range("B" & i).Value = Range("C" & j).Value And Range("C" & i).Value = Range("B" & j).Value Then
                    Range("A" & j).ClearContents
                    skipArr(count) = j
                    count = count + 1
                End If
            Next j
        End If
    Next i
End Sub

 

[MickG]

Possibly this :-skipArry(count) = j Not this skipArr(count) = j

 

[shg]

Pick a name -- SkipArr or SkipArray -- you've got both, but only one is initialized.

 

[hurgadion]

Hi,
I think, that You have to declare the array skipArr using ReDim, You declared the array skipArray, best regards.

 

[Norie]

The array you redimmed is called skipArray, you are referring to skipArr which hasn't been dimensioned.

Unfortunately Option Explicit wouldn't pick this up as the Redim is considered a declaration.

Well that's why I think it won't.

 

[kpark91]

Ahhhhhhhhhhhhh. I see. hahaha.
Thank you very much!