Overstepping the Error?

[maxzara]

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

[Merton]

The problem is that the purpose of

On Error Resume Next

is to ignore the error and continue. It does this by setting Err.Number = 0.


You need to use On Error Goto
Like this

Sub MySub
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 goto ErrorHandler
End If
Next v
'
'Rest Of your code
' 
Exit Sub
ErrorHandler:
If Err.Number > 0 Then
wbRef2.Sheets(1).Range("H3").Offset(0, t) = customarray(t + 1)(d + 1)
t = t + 1
End If
Resume Next
End Sub

[westconn1]

unless you want to change you error handling within the loop, you should place any on error statement prior to the loop
similarly if steparray remains constant it too should be declared and assigned values prior to the loop