On Error GoTo当错误的时候去哪儿

nnsea

Sub onerrorresume()
Dim i!
On Error Resume Next '当错误的时候继续执行下去
For i = 2 To 8
    Cells(i, 4) = Cells(i, 3) + Cells(i, 2)
Next i
End Sub

'On Error GoTo当错误的时候去哪儿?
Sub onerrorgoto()
On Error GoTo 100
For i = 2 To 8
    k = Sheet1.Cells(i, 2) + Sheet1.Cells(i, 3)
Next i
100:
   MsgBox "对不起，错误发生在第" & i & "行"

End Sub