I want to use “error handler process” in a “for loop” such that if the condition defined for the loop is not met, the macro increases i(the variable defined for loop) by 1 unit and get back to beginning of the loop .
Consider following macro, if it get “run time error” at i=4, I expect that it continue at i=5.
As the Excel attachment shows, this code dose not work as I expect and stop as i=4 with “run time” error.
Can you give me some guides on this issue?

Option Explicit
Sub forlloop()
Dim cell0 As Range
Dim i As Integer
Dim n As Integer


Dim j As Integer
'MsgBox Selection.Font.ThemeColor
On Error GoTo I_handle_error
Set cell0 = Cells(1, 1)
n = 45
For i = 0 To ActiveSheet.Range("A1").SpecialCells(xlCellTypeLas tCell).Row - 1
a:
cell0.Offset(i).Select
If Selection.Value = "total" Then
cell0.Offset(i, n - 1).Value = "end"
ElseIf Selection.Font.ThemeColor = xlThemeColorDark1 Then
cell0.Offset(i, n - 1).Value = "beg"
End If
Next i
Exit Sub
I_handle_error:
i = i + 1
GoTo a

End Sub

Attached Files

ForLoop.xlsm (28.5 KB, 0 views)

I think this may be happening because you have jumped out of the loop - you cannot simply jump back in again.
So you need to trap and handle the error whilst remaining inside the loop - for instance using the iserror function.
I am always wary of creating infinite loops when playing with the loop counter, so watch out for that !
PS Is there meant to be a space in ElseIF Selection . . . ?

Thank you for your guidance. I don't understand what you mean by "PS". According to your hint, I have changed the code as following. But it still gives error. (this time at i=3)

Option Explicit
Sub forlloop()
Dim cell0 As Range
Dim i As Integer
Dim n As Integer
Dim j As Integer
Set cell0 = Cells(1, 1)
n = 45
For i = 0 To ActiveSheet.Range("A1").SpecialCells(xlCellTypeLas tCell).Row - 1
cell0.Offset(i).Select
If Selection.Value = "total" Then
cell0.Offset(i, n - 1).Value = "end"
Else
MsgBox IsError(Selection.Font.ThemeColor)
If IsError(Selection.Font.ThemeColor) = True Then
If Selection.Font.ThemeColor = xlThemeColorDark1 Then
cell0.Offset(i, n - 1).Value = "beg"
End If
End If
End If
Next i
End Sub