I have written this code to filter through an array, however can't seem to pinpoint why when it goes to the Error it just bypasses the IF statement.

For v = 0 To CInt(wbRef2.Sheets(1).UsedRange.Columns.Count) - 4 Step 1
Dim stepArray
stepArray = Array(1, 3, 5, 7)
ArrayCheck = Application.Match(v, stepArray)
On Error Resume Next

'''This gets ignored
If Err.Number > 0 Then
wbRef2.Sheets(1).Range("H3").Offset(0, t) = customarray(t + 1)(d + 1)
t = t + 1
 End If
Next v
Effectively it never carries out the command in wbRef.2...

Thank you for your help guys, you have been amazing so far